Paradox Daten in CSV Datei schreiben?

[Computersklave]

Hi,

hab mal wieder ne Frage,

Ich möchte die Daten aus meiner Paradox Datenbank in eine CSV Datei schreiben.
Habe in einem Forum folgenden Code gefunden und entsprechend angepasst um Daten
in die CSV Datei zu schreiben, aber es wird nur der erste Datensatz geschrieben.

Delphi-Quellcode:

procedure ....
var
  f: Textfile;
 Ziel, Datensatz : String;
  Anzahl:integer;
  zahler:integer;
begin
    Anzahl:=TableExport.recordcount;
    showmessage(inttostr(Anzahl));
    TableExport.FindFirst;
    FlatGauge1.MaxValue:=anzahl;

  if SaveDialog1.Execute then begin
  Ziel := SaveDialog1.FileName;

      for zahler:= 0 to Anzahl do
          begin
           Datensatz := DBEdit1.text + ';' +
                        DBEdit2.text;
           FlatGauge1.Progress:=zahler;
           TableExport.FindNext;
          end;

  AssignFile(f, Ziel);
  try
    if FileExists(Ziel) = False then begin
      Rewrite(f);
      Writeln(f,'"TITEL1","TITEL1"');

    end else begin

      Reset(f);
      Append(f);

    end;

    Writeln(f, Datensatz);

  finally
    CloseFile(f);
  end;

end;
end;

Was ist da falsch?

Das muss ja hier irgendwo begraben liegen

Delphi-Quellcode:

 for zahler:= 0 to Anzahl do
          begin
           Datensatz := DBEdit1.text + ';' +
                        DBEdit2.text;
           FlatGauge1.Progress:=zahler;
           TableExport.FindNext;
          end;