var timer = null;

function Loaded(){

  timer = TTimer.Create(null);

  timer.Interval = 5000;

  timer.Enabled = true;

  Scripter.SetEvent(timer, 'OnTimer', 'myfunc');

}

function myfunc(sender){

  timer.Enabled = false;

  kurGuncelle();

}

function kurGuncelle(){

  var query,sql,lForm;

  sql    = 'SELECT COUNT(*) FROM DOVIZKUR WHERE TARIH BETWEEN CURRENT_DATE AND CURRENT_DATE';

  query  = GetNSCDS(sql);

  if (query.FieldByName('COUNT').AsInteger == 0){

     lForm = TFormSYDovizKuruEdit.Create(null);

     var lNSCDSDovizler   = lForm.NSCDSDovizler;

     var lNSCDSKurTipi    = lForm.NSCDSKurTipi;

     var lNSCDSSaatlikKur = lForm.NSCDSSaatlikKur;

     lNSCDSDovizler.Open;

     lNSCDSKurTipi.Open;

     lNSCDSSaatlikKur.Open;

     lForm.Show;

     lForm.btnButunKurlariGuncelle.Click;

     lForm.Close;

     lForm.Free;

     MessageDlg('Kur güncelleme işlemi tamamlandı.', mtInformation, 0, 0);

  }

}

function GetNSCDS(SQL){

 var ds = TNSClientDataset.Create(null);

 ds.NSDataBaseName = "INETSIM";

 ds.SQL.Text = SQL;

 ds.Open;

 return ds;

}