初学delphi 2个form的 问题

Question

想在form1 button1里面打开form2后 form1自己关闭 如何写啊
我这样写 不行 
if  ADOStoredProc1.Parameters[2].Value=self.Edit1.Text then
  var Form2:TForm2
  begin
  Form2:=TForm2.create(self);
  Form2.showmodal;
  Form2.fress;
  end
else
  self.Label1.Caption:='对不起，用户名或密码错误'

Answer 1

登录窗体？
用模式窗体吧。
TFrmLogin=class(tForm);
...var
  frmlogin:tfrmlogin;...
im...
procedure TfrmMain.oncreate(sender:Tobject);begin frmlogin:=tfrmlogin.create(nil);
 if frmlogin.showmodal=mrok then
   showmessage('login success')
 else
 begin
   showmessage('login fails');
   application.terminate;
 end;end;

Answer 2

是登录 能给个sample不？或者参考的地址 最好是源码