[ecfisa]

Hola to_to.

Siguiendo la sintáxis de mi mensaje anterior y no mediando otros problemas, de este modo tiene que funcionar:

Código Delphi [-]
function TDMPrincipal.ConectaBD(BD: TSQLConnection; const BDName, UsrName, Pwd: string): boolean;
begin
  BD.Close;
  BD.Params.Clear;
  BD.Params.Values['Database'] := BDName;
  BD.Params.Values['User_name']:= UsrName;
  BD.Params.Values['Password'] := Pwd;
  BD.LoginPrompt               := False;
  Result := True;
  try
    BD.Open;
  except
    Result := False;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
begin
  if not ConectaBD(SQLConnection1, '\\TU_NOMBRE_SERVIDOR\TU_ALIAS', 'sysdba', 'masterkey' ) then
    ShowMessage('Error en la conexión');
  ...

Saludos