login con niveles

[jandj]

hola a todos, necesito ayuda. Estoy creando un login con niveles dependiendo el usuario que entre me explico si me logueo como administrador quiero habilitar el menu de configuracion de usuarios, si me logueo como usuario normal que se desabilite la configuracion de usuario. si necesitan saber algo mas solo posteenlo aqui!. he visto unos cuantos link del club pero ninguno me a cumplido. tengo el login echo solo quiero que se desabiliten o habiliten las opciones del menu segun el nivel del usuario. solo son dos niveles administradores y usuarios normales.

codigo del button entrar del login sin niveles:

procedure TfrmLogin.Button1Click(Sender: TObject);
var
user: string;
clave: String;
begin
user:=edit1.Text;
clave:=edit2.text;
if (user='') or (clave='') then begin
showmessage('Debe Introducir un Usuario y Contraseña');
exit;
end
else
table1.Open;
with table1 do
locate('User;Clave',vararrayof([user,clave]),[]);
if table1.Locate('User;Clave',vararrayof([user,clave]),[]) then
begin
ModalResult := mrOK;
showmessage('Bienvenido al sistema '+user+'');
end
else
begin
inc(intento);
if intento = 1 then
begin
showmessage('Clave o Usuario Incorrectos Le Queda Un Intento');
edit1.SetFocus;
end
else
begin
showmessage('Usted No Tiene Acesso Al Sistema');
close;
end;
end;
table1.Close;
end;

-------------------------------------
Pregunta: Donde coloco el codigo de identificacion de los niveles y donde va el codigo de habilitar o deshabilitar? y si tienen algun ejemplo por favor.
-------------------------------------
codigo que he puesto en el proyecto
---------------------------------------
var
frmlogin: tfrmLogin;
begin
Application.Initialize;
frmlogin:= Tfrmlogin.Create(Application);
if frmlogin.showmodal = MrOk then
begin
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TfrmLogin, frmLogin);
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TForm1, Form1);
frmlogin.free;
Application.Run;
end
else
begin
application.Terminate;
end;

------------------------------------------