我写了一个简单的Delphi登陆代码,登陆进去过后,主窗体出来了,登陆窗体没有消失,是怎么回事,请高手看看!

这是登陆窗体代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Add('select * from yhbiao where yh_name = ''' + Edit1.Text + ''' and yh_password = ''' + Edit2.Text + ''' and yh_id = 0');
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
Showmessage('你输入的密码或帐号不正确');
exit;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
Form1.Close;
Form2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.
这是主窗体里面的代码:
procedure TForm2.FormCreate(Sender: TObject);
begin
if Form1 = nil then
begin
Form1 := TForm1.Create(self);
end;
Form1.ShowModal;
end;

end.
请高手指点一下!!!

我写了一个简单的Delphi登陆代码,登陆进去过后,主窗体出来了,登陆窗体没有消失,是怎么回事,请高手看看! 一个简单的delphi问题?? 一个简单的 delphi 问题 如何写一个简单的无窗体无进程,插入DLL到进程的DELPHI程序?? delphi 程序的一个简单的问题 delphi listbox控件的一个简单问题？ 关于一个delphi简单的编程 ASP一个简单的登入程序怎么写?保存COOKIE方法 delphi 的简单问题 delphi简单的加法