Probleme mit DB und Schleife

[aaaaaaaaaa_10]

Delphi-Quellcode:

if SameTime(StrToTime(WL.Strings[1])-StrToTime(MyTime),StrToTime('00:10:00')) = true then
                  begin                                                         
                    t.Open;
                    t.Append;
                    for i := 0 to WL.Count - 1 do
                    begin
                      t.Fields[i].Value := WL.Strings[i];     //Einträge in DB einfügen
                    end;
                    t.Post;
                    t.Close;
                    time := WL.Strings[1];
                  end;

Hab ein Problem (merkwürdiges):
Ich will alle 10 Minuten etwas in eine Datenbank schreiben (über t : TTable).
Das schreiben an sich funktioniert,aber das mit dem Intervall nicht so richtig. er schreibt 2mal was in die datenbank (z.B. um 12:23:34 und dann um 12:33:34), aber dann nicht mehr. Lasse ich ihn alle 5 Minuten schreiben, macht er es durchgängig. Komisch oder?