Validacion de usuarios

[fedelphi]

Hola, muchas gracias por las respuestas, he puesto el codigo asi,

Código Delphi [-]
var
  usuario:TFValidaUsr;
begin

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

  usuario:=TFValidaUsr.create(nil);
  if usuario.showmodal=mrOK then  
  begin
    usuario.Free;
    Application.CreateForm(TFPrincipal, FPrincipal);
    Application.CreateForm(TFCierreventa, FCierreventa);
    Application.Run;
    
  end;
Application.Terminate;

pero si el showmodal no es mrOK, me da un error de 'Access violation at address...', y ademas la tabla de usuarios tiene un campo que indica si tienen permiso a todo o solo a ingreso de datos, como puedo manejar eso? Yo pensaba crear una variable global y asignarla pero ahora no se donde definirla, tomar su valor o asignarla.
Gracias
Fede