Login screen personalizado mysql

[chino150]

Empezado por Neftali

Coloca la propiedad LoginPrompt a False, diseña tu pantalla pantalla de login como desees y una vez introducidos los datos pásalos a la conexión.
Capturas el error que pueda haber al conectar y visuyalizas la pantalla de nuevo si es necesario.

ok lo intente pero cuando le hago click al botton aceptar do muestra el formulario principal pero cuando le dio click a cancelar si este es el codigo que
utilize

Código Delphi [-]
procedure TfrmLogin.btnAceptarClick(Sender: TObject);
var
   sUsuario, sContra : String;
begin
    sUsuario := txtUsuario.Text;
    sContra := txtContra.Text;
    md.BD.Disconnect;
    md.BD.User := sUsuario;
    md.BD.Password := sContra;
    md.BD.Connect;
end;

end.

no se que estoy haciendo mal.