db := TDataBase.Create(self);
  with db do
  begin
    AliasName := '..';
    DatabaseName := '..';
    Name := '..';
    Params.Add('user name=..');
    Params.Add('password=..');
    LoginPrompt := false;
    Connected := true;
  end;