try
  with dm.conServer do
  begin
    Server := 'localhost';
    Port := 5432;
    Username := 'postgres';
    Password := 'postgres';
    Database := 'newserver';
    Connected := True;
  end;
except
  on E: Exception do
    ShowMessage(E.ClassName + ' Erro : ' + E.Message);
end;

var
  UniConnection1: TUniConnection;
...
UniConnection1.ProviderName := 'Oracle';
UniConnection1.Username := 'scott';
UniConnection1.Password := 'tiger';
UniConnection1.Server := 'ORA1020';
UniConnection1.SpecificOptions.Values['Schema'] := 'SCOTT';
UniConnection1.Open;

UniConnection1.SpecificOptions.Add('Schema=SCOTT');

procedure TfrmMain.FormCreate(Sender: TObject);
var
  appINI: TIniFile;
  Server, Username, Password, Database: String;
  Port: Integer;
begin
  direxe := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
  appINI := TIniFile.Create(direxe + 'config.ini');
  try
    Server := appINI.ReadString('Server', 'Server', '');
    Port := appINI.ReadInteger('Server', 'Port', 5432);
    Username := appINI.ReadString('Server', 'Username', '');
    Password := appINI.ReadString('Server', 'Password', '');
    Database := appINI.ReadString('Server', 'Database', '');
  finally
    appINI.Free;
    try
      dm.conServer.DriverName := 'PG';
      dm.conServer.Params.Add('Server=' + Server);
      dm.conServer.Params.Add('Port=' + IntToStr(Port));
      dm.conServer.Params.Add('Database=' + Database);
      dm.conServer.Params.Add('User_name=' + Username);
      dm.conServer.Params.Add('Password=' + Password);
      dm.conServer.Connected := True;
    except
    on E: Exception do
      ShowMessage(E.ClassName + ' Erro : ' + E.Message);
    end;
  end;
end;