[artemavd]

Вот код создания таблицы программно:
Код:

Код:

 with TTable.Create(Self) do
 begin
  DataBaseName:='C:\Documents and Settings\Тёмка\Рабочий стол';
  TableName:='Table1';
  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;

Все хорошо, но я хочу, чтобы я мог сам указывать путь для DatabaseName через диалог. Но не получилось. Пробовал через SaveDialog, безрезультатно . Как сделать возможность выбора размещения алисаса?