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