[kosowap]

База на месте, переписал вот так и работает, но проект пришлось заново создать.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
if form1.Table1.Active=true then form1.Table1.Active:=false;
if form1.Table2.Active=true then form1.Table2.Active:=false;
begin
  with Session do
  begin
    ConfigMode := cmSession;
    try
      { Если файл данных находиться в том же каталоге,
      что и выполняемый файл программы, то в программе
      путь к файлу данных может быть получен из командной
      строки при помощи функции ExtractFilePath(ParamStr(0)).
      В приведенном примере файл данных находиться в подкаталоге
      DATA каталога программы. }

      // создадим временный псевдоним для базы данны
AddStandardAlias( 'Base',
 'd:\program1\Database\','PARADOX');
 s1:='d:\program1\Database\'+ 'db.db';        /// записать путь к БД
 s2:='d:\program1\Database\'+ 'db1.db';        /// записать путь к БД
 k:='''';
     Table1.TableName:='DB.db'  ;
     Table2.TableName:='DB1.db'  ;
     Table1.DatabaseName:='Base'  ;
     Table2.DatabaseName:='Base'  ;
     Query1.SQL.Clear;
     query1.SQL.Add('select login from ' +k+s1+k);
     Query1.Active := True;

     Query2.SQL.Clear;
     query2.SQL.Add('select parol from  ' +k+s1+k);


     Query2.Active := True;
     Table1.Active := True; // откроем базу данных
     Table2.Active := True;
    finally
      ConfigMode := cmAll;
    end;
  end;
  form1.Editcombo;
end;
end;

Админ: Пользуемся тегами для оформления кода!