//Query1为SQL Server查询,换成ADOQuery即可
//Table1.DatabaseName := '<路径>';procedure TForm1.Button1Click(Sender: TObject);
var
  FileNames: string;
begin
  Table1.Close;
  Table1.TableType := ttFoxPro;
  Table1.FieldDefs.Assign(Query1.FieldDefs);
  Table1.TableName := 'NewTable';
  Table1.CreateTable;  Table1.Open;
  Query1.First;
  FileNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
  while not Query1.Eof do begin
    Table1.Append;
    Table1[FileNames] := Query1[FileNames];
    Table1.Post;
    Query1.Next;
  end;
  Table1.Close;
end;