if savedialog1.execute then
begin
if FileExists(savedialog1.filename) then
  DeleteFile(savedialog1.filename);
 //QUERY.DataSource НЕ ЗАПОЛНЕНО иначе взрыв гарантирован
with Session do
begin
  ConfigMode := cmSession;
 try
  AddStandardAlias('TEMPDB', extractfilepath(savedialog1.filename),
  'FOXPRO'); //FOXPRO
 finally
  ConfigMode := cmAll;
 end;
end;
 with database1 do
 begin
  databasename:='tst';
  LoginPrompt := False;
  Params.Values['PATH'] :=extractfilepath(savedialog1.filename);
  DriverName:='Microsoft FoxPro Driver (*.dbf)';
  AliasName:='TEMPDB';
 end;
 query1.paramcheck := false;
 Query1.DatabaseName := 'tst';
 Query1.SQL.Clear;
 vrem:=Trim(ChangeFileExt(extractfilename(SaveDialog1.fileName),' '));
 query1.sql.Add('CREATE TABLE '''+vrem+''' (');
 query1.sql.Add('last_name CHAR(20),');
 query1.sql.Add('first_name CHAR(15),');
 query1.sql.Add('salary DECIMAL(10,2));'); //NUMERIC
 query1.ExecSQL;
 query1.close;
end; // от savedialog