delphi用show方法打开窗体出错

Question

var
  LoginForm1: TLoginForm1;implementationuses
  admin_main;
{$R *.dfm}
procedure TLoginForm1.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
     Close;
     SQL.Clear;
     SQL.Add('select password,quanxian from login_user ');
     SQL.Add('where username=:name');
     ParamByName('name').Value:=Edit1.Text;
     Open;
     if FieldByName('password').Value<>null then
     begin
       if fieldbyname('password').Value=Edit2.Text then
       begin
            if FieldByName('quanxian').Value='admin' then
            begin
                  LoginForm1.Hide;
                  adminMainForm1.Show;
            end
            else ShowMessage('学生登录');
       end
       else ShowMessage('密码错误');
     end
        else ShowMessage('用户不存在');
  end;
end;执行show方法就会出现下面的错误，我百度了说设置性能那啥就可以，但是我尝试过了并没有解决问题，只能来求助了

Answer 1

adminMainForm1没建立吧，

Answer 2

到adminMainForm1里面去跟踪看一下问题出在哪

Answer 3

光引用不行啊，你还得建立form的实例：adminMainForm1 := TadminMainForm1.Create(Application);

Answer 4

是的窗体本身存在的前提下,才能show操作。
窗体的存在，有二种方式，一是工程创建时创建。二是动态创建。二者取一即可。