Textdatei speichern mit Tabstop getrennt

[GUFR]

Hallo

Wie lautet die Syntax um Text mit Tabstop getrennt zu speichern

Hier mein Code:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
AssignFile(f, 'SerienTxt.txt');
rewrite(f);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * FROM Elektr_Lohnzahlung');
Form1.Query1.open;
Form1.Query1.First;
While Not Form1.Query1.Eof DO
begin
For i:= 0 To Form1.Query1.FieldCount-1 Do
Write(F,
Form1.Query1.Fields[i].AsString+' ');
if Form1.Query1.FieldCount-1 =
Form1.Query1.FieldCount-1 Then
Writeln(f,' ');
Form1.Query1.Next;
end;
CloseFile (f);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * FROM Elektr_Lohnzahlung');
Form1.Query1.Active:= True;
end;


Gruss

Gufr