en la unidad principal del proyecto, tengo puesto lo siguiente:
Código Delphi
[-]
var
frmacceso:tfrmacceso;
begin
Application.Initialize;
frmacceso:=tfrmacceso.create(nil);
if frmacceso.Showmodal=mrOK then
begin
frmacceso.Free;
Application.CreateForm(TFrmPresAdh, FrmPresAdh);
...
Application.Run;
Application.Terminate;
end
else
begin
frmacceso.free;
end;
end.
y luego desde el formulario de acceso, se comprueba el nombre de usuario y la contraseña si son correctos entonces modalresult:=MROK y si no modalresult:=MRCANCEL.
Un saludo