form login unico

[jonydread]

Amigos ya diran tema repetido pero ya averigue y se como hacer el formulario lo que estoy en duda si se puede realizar lo sgte.

tengo mi form de login

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, DB, ZAbstractRODataset, ZAbstractDataset,
  ZDataset, ZAbstractConnection, ZConnection, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    function UsuarioValido(const aName, aPassword: string): Boolean;
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1,Unit3;

{$R *.dfm}

function TForm2.UsuarioValido(const aName, aPassword: string): Boolean;
begin
  with  zquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text :='SELECT * FROM ingreso WHERE usuario = :usuario AND pass = ass';
    ParamByName('usuario').AsString := aName;
    ParamByName('pass').AsString := aPassword;
    Open;
    Result:= not IsEmpty;
    Close;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
edit1.PasswordChar := '*';
  with zQuery1 do
  begin
SQL.Text := 'SELECT * FROM ingreso';
Open;
while not Eof do
    begin
      ComboBox1.Items.Add(zQuery1.FieldByName('usuario').AsString);
      combobox1.ItemIndex := 0;
      Next
    end;
    Close
  end;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if not UsuarioValido(ComboBox1.Text,Edit1.Text) then
  begin
     MessageDlg('Usuario no existe', mtError, [mbcancel],0);

end;
end;
end.

este para un form principal funcionaria exelente colocando

Código Delphi [-]
if not UsuarioValido(ComboBox1.Text,Edit1.Text) then
  begin
     MessageDlg('Usuario no existe', mtError, [mbcancel],0)
end else
   Application.CreateForm(TForm3, Form3);
   // Establece Form3 con FormMain
   SetAsMainForm(form3);
   // Muestra Form3
   form3.show;
   // Cierra Form2
   form2.Close;

pero quiero utilizar el mismo para ingresar a otro form sin hacer otro formulario de inicio y que solo el administrador tenga acceso.
me explico al iniciar todos los usuarios creados podran iniciar con nombre y pass, pero tengo una seccion de administrador de usuarios a la cual solo debiese acceder admin habra alguna forma de usar el mismo formulario o debo crear otro?(que no es lo que quiero).


saludos!!