Tomando la idea de
reina:
Código Delphi
[-]
DataBase.Connected:=false;
DataBase.Params.Clear;
DataBase.Params.Add('user_name=nombreusuario');
DataBase.Params.Add('password=pass');
DataBase.LoginPrompt:=false;
try
DataBase.Connected:=true;
except
on EDatabaseError do
begin
ShowMessage('Error al autenticar usuario!');
Application.Terminate;
end;
Ahora, ya es cosa tuya si queres proveer un mecanismo para que el usuario reintente varias veces (o indefinidas veces).
Hasta luego.