Hola.
Un ejemplo de como podrías implementarlo:
Código Delphi
[-]
...
implementation
{$R *.dfm}
uses Unit2 ;
procedure TForm1.btConnectClick(Sender: TObject);
const
ERCONNECT = 'No se pudo conectar con la base de datos.' + #10 +
'Consulte con el administrador del programa.';
begin
dmConnect.IBDatabase.Connected := False;
dmConnect.IBDatabase.DatabaseName := 'NOMBRE_DE_TU_BD';
dmConnect.IBDatabase.Params.Clear;
dmConnect.IBDatabase.LoginPrompt := False;
dmConnect.IBDatabase.Params.Add('user_name=' + edUserName.Text);
dmConnect.IBDatabase.Params.Add('password=' + edPassword.Text);
try
dmConnect.IBDatabase.Open;
except
raise Exception.Create(ERCONNECT);
end;
end;
El resultado:
Saludos