login cuando el programa se inicia

[papote654]

Fijate este es un codigo q yo lo utilizo mucho y me resulta de lo mas bien espero te sirva.

en el evento onclick del boton aceptar.

if tabla1.findkey(edit1.text:='USUARIO') and tabla2.findkey(edit2.text:='CONTRASEÑA') = true then
begin
form1.hide;
form2.showmodal;
end
else
showmessage('contraseña incorrecta');
edit2.setfocus;

suerte!!