Validacion de usuarios

[[sitrico]]

Prueba con:

Código Delphi [-]
var
//  usuario:TFValidaUsr;  no lo necesitas
  mr : Integer;
begin

  Application.Initialize;
  Application.CreateForm(Tmodulodatos, modulodatos);

  With TFValidaUsr.create(nil) do
    Begin
    Try
        mr := showmodal; 
        // dentro de este formulario debes leer las variables/permisos que necesites,
        // Define las variables en Tmodulodatos  ej: modulodatos.NivelAcceso, modulodatos.IdUsuario
     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;
  // lo que necesites
  End;

Var
Usuario = tRegUsuario;