Probleme mit DB und Schleife

[aaaaaaaaaa_10]

Hallo,
hab das jetzt mit Timer probiert.

Delphi-Quellcode:

  //Timer für Datenbank zur Laufzeit erstellen
          MyTimer3 := TTimer.Create(nil);
          MyTimer3.Enabled := True;
          MyTimer3.Interval := 120000;    // alle 2 Minuten die Datenbank aktualisieren
          MyTimer3.OnTimer :=  DatenbankFuellen;

Delphi-Quellcode:

procedure TFiles.DatenbankFuellen(Sender: TObject);
var Werte, Datei  : string;
    i : integer;
    WerteList, WL : TStringList;
begin
      Datei := extractfilepath(application.exename)+'Mom10min_'+Kennung+'.txt';
      WerteList := TStringList.Create;
      WL        := TStringList.Create;
      try
        WerteList.LoadFromFile(Datei);
        if WerteList.Count >=2 then                 
        begin
          Werte := WerteList.Strings[WerteList.count-1];   
          WL.Delimiter := #9;
          WL.DelimitedText := Werte;                                
          if count = WL.Count then
          begin
            with t do      
            begin                                                    
                    t.Open;
                    t.Append;
                    for i := 0 to WL.Count - 1 do
                    begin
                      t.Fields[i].Value := WL.Strings[i];
                    end;
                    t.Post;
                    t.Close;     
            end;
          end;

         WerteList.SaveToFile(Datei);
        end;
      finally
        Free;
        WerteList.Free;
        WL.Free;
      end;
end;

Das Problem dabei, dass er dann erst nach 2 Minuten den ersten Wert reinschreibt. Er soll aber sofort anfangen.