paradox-daten als csv speichern

[bastos]

hi,
habe das jetzt so:

Delphi-Quellcode:

procedure TFormMain.Button2Click(Sender: TObject);
 var sl: TStringList;
begin
Query3.close;
Query3.SQL.text :='select * from member order by Nr';
Query3.Open;
sl:=TStringList.Create; 
while not Query3.Eof do
  begin
  try  
    sl.Add(Query3.fieldByName('Name').AsString); 
    sl.SaveToFile('c:\test.txt'); 
  finally
   end;
  sl.free; 
 end;
end;

leider hat er nur einen datensatz gespeichert und danach eine fehlermeldung ausgegeben."access violation at adress... in module..."
was mache ich noch falsch?
mfg
bastos