[Yurk@]

примерно так:

Код:

var
F:TextFile;
i:integer;
Str:string;
begin
AssignFile(F,CSVFile.csv);
Reset(F);
Table1.Open;
Table1.First;
while not Table1.Eof do
  begin
  s:='';
  for i:=0 to Table1.RecordCount do
  s:=s+Table1.Fields[i].asString+';';
  Writeln(F,s);
  Flush(F);
  Table1.Next;
  end;
CloseFile(F);
Table1.Close;
end;