[Страдалецъ]

В вашем случае надо использовать SaveDialog наверное так:

Код:

with TTable.Create(Self) do
 begin
 SaveDialog1.Filter := 'Paradox files (*.db)|*.db';
 if not SaveDialog1.Execute then Exit;
 DataBaseName := ExtractFilePath(SaveDialog1.FileName);
 TableName := ExtractFileName(SaveDialog1.FileName);
 TableType:=ttParadox;
    with FieldDefs do
      begin
       Add('Age',ftInteger,0,True);
       Add('Name',ftString,25,False);
       Add('Weight',ftFloat,0,False);
      end;
      IndexDefs.Add('','Age',[ixPrimary,ixUnique]);
      CreateTable;
 end;