Tetszőleges szerkezetű adattábla exportálása TXT-be

procedure TExportTxt.Execute;
var
  table: TTable;
  batchmove: TBatchMove;
begin
  if Assigned(FDataSet) and (FTXTFile<>'') then begin
    table:=TTable.Create(nil);
    batchmove:=TBatchMove.Create(nil);
    with table do begin
      DatabaseName:=FDataSet.DatabaseName;
      TableName:=FTXTFile;
      TableType:=ttASCII;
    end;
    with batchmove do begin
      Source:=FDataSet;
      Destination:=table;
      Mode:=batCopy;
      Execute;
    end;
    batchmove.Free;
    table.Free;
  end;
end;