Prueba con:
Código Delphi
[-]var
mr : Integer;
begin
Application.Initialize;
Application.CreateForm(Tmodulodatos, modulodatos);
With TFValidaUsr.create(nil) do
Begin
Try
mr := showmodal;
Finally
free;
End;
End;
if mr=mrOK then
begin
Application.CreateForm(TFPrincipal, FPrincipal);
Application.CreateForm(TFCierreventa, FCierreventa);
Application.Run;
end;
Application.Terminate;
Aunque te recomiendo que definas un registro y una variable en modulo datos:
Código Delphi
[-]Type tRegUsuario = record
IdUsuario : integer;
Nombre : ShortString;
NivelAcceso : Byte;
End;
Var
Usuario = tRegUsuario;