初学delphi 2个form的 有关问题

初学delphi 2个form的 问题
想在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:= '对不起，用户名或密码错误 '

[解决办法]
登录窗体？
用模式窗体吧。
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;