Delphi - Password Dialog Urge!

Hice un Dialogo de Password (El que ya viene programado en Delphi)
quisiera si me pudieran mandar un codigo para insertarlo en el para que haga la comprobación de password, que si es valido te permita accesar a otra forma y si no es valido (despues de teclearlo 3 veces) te saque del programa.

Gracias!

Para que la aplicacion se cierre cuando el usuario haya introducido la clave incorrectamente por Tercera ves, podrias a este mismo codigo agregarle una varible global del tipo Integer y sumarle uno cada vez que se produce la excepcion de esta manera luego con un bloque (if-Else) haces la comparacion y si tu variable es igual a 3 cierras la aplicacion

try
with Tdatabase do begin
connected := false ;
close;
databasename := 'Tu_Alias' ;
params.values['USER NAME']:= edit1.Text;
params.values['PASSWORD']:= edit2.text;
loginprompt := false;
transisolation := (tidirtyread);
keepconnection := true ;
connected := true;
showmessage('Conectado a la base de datos') ;
end ;
except
showmessage('No se puede conectar con la base de datos');
edit1.setfocus;
exit ;
end;
end;