DateTime in DB Speichern, wird nur jeder 2 gespeichert WISO?

[Albi]

Hallo alle zusammen, ich habe folgendes Problem:

Ich speichere mehrer Werte in einer *.txt und erstelle daraus einen Serienbrief, nun möchte ich, das wenn er den Serienbrief erstellt, mir Datum/Uhrzeit in der DB hinterlegt. Das klappt auch. Aber nehmen wir mal an, es sind 5 DS da, dann schreibt er jeweils den 1ten, 3ten u. 5ten Datum/Zeit in die DB und in die *.Txt aber in den 2ten u. 4ten jedoch in keines der beiden. Nehme ich das SetPrintTime raus, schreibt er mir wieder alle in die *.txt.

Kann es sein, das das Query dazu zu langsam ist und daher immer einer übersprungen wird?

Ich verwende folgenden Code

Code:

 Form1.Query1.First;
      For i:= 0 To Form1.Query1.FieldCount-1 DO
      Write(f, Form3.DBGrid1.Fields[i].FieldName+';');
      Writeln(f,'');
        while not Form1.Query1.EOF do
         begin
            for i:=0 to Form1.Query1.FieldCount-1 do
             begin
              Write(F, Form1.Query1.Fields[i].asstring+';');
              SetPrintTime;
               if Form1.Query1.FieldCount-1 = Form1.Query1.FieldCount-1 Then
              end;
              Writeln(F, '');
          Form1.Query1.Next;
         end;
    CloseFile(f);

SetPrintTime lautet: Form1.Query1.Edit;
Form1.Query.FieldByName('Gedruckt').AsDateTime:= now;