菜鸟刚学delphi求助

我刚学delphi几天，做一个作业
目前刚设计了3个form
form1是个闪烁的界面，显示制作者的学号姓名
form2是个登陆界面，只要输入账号密码1，就能登录到form_main

下面是我form2的设置
procedure Tform2.BitBtn2Click(Sender: TObject);
begin
if (edit_user.text <>'1') or (edit_pw.text <>'1')then
begin
showmessage(用户名或密码错误');
edit_user.Text:='';
edit_pw.Text:='';
edit_user.setfocus;
end;
end.

接下来应该加些什么设置才能使得输入正确账号密码后显示form_main

procedure Tform2.BitBtn2Click(Sender: TObject);
begin
if (edit_user.text <>'1') or (edit_pw.text <>'1')then
begin
showmessage(用户名或密码错误');
edit_user.Text:='';
edit_pw.Text:='';
edit_user.setfocus;
end else
form_main.show;
end.

在form1的CREATE中写上一个代码
procedure Tform1.create(Sender: TObject);
begin
form2:=tform2.create(nil);
form2.showmodal;
end;//这段代码是在主窗体创建的时候创建并调出登录窗体,登录窗体为模态显示;

procedure Tform2.BitBtn2Click(Sender: TObject);
begin
if (edit_user.text <>'1') or (edit_pw.text <>'1')then
begin
showmessage(用户名或密码错误');
edit_user.Text:='';
edit_pw.Text:='';
edit_user.setfocus;
end
else
begin
form2.close;
form2.free;
end;
end.

procedure Tform2.BitBtn2Click(Sender: TObject);
var
form_main:TForm_Main;