Paradox数据库导出到文本

procedure TForm1.Button1Click(Sender: TObject); var
t1, t2: tTable; {t1 = PW table; t2 = ASCII version}
begin
t1 := tTable.create(self);
with t1 do begin
DataBaseName := 'DBDEMOS';
tableName := 'customer.db';
open;
end;
t2 := tTable.create(self);
with t2 do begin
DataBaseName := 'DBDEMOS';
tableName := 'myfile.txt';
TableType := ttASCII;
createTable;
open;
edit;
BatchMove(t1, batCopy);
close;
end;
t1.close;
end;