密码问题（没钱了，实在不好意思）(10分)

待进入窗体：form1如下设置：
var
logined:boolean;
begin

procedure TForm1.FormCreate(Sender: TObject);
begin
Logined:=False;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if not Logined then form2.Showmodal;
end;

密码登陆界面form2如下设置：

private
Passtime:byte;

{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
Passtime:byte;
implementation
uses unit3,unit1;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Close;
Application.Terminate;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
inc(PassTime);
if Edit1.Text=MyPass then
begin
form1.Logined:=True;
form1.WindowState:=wsMaximized;
Close;
end else
begin
Label1.Caption:=Format('密码错误第%d次，请重新输入：',[PassTime]);
if PassTime>=3 then
begin
BitBtn2.Click;
end else
begin
Edit1.Text:='';
Edit1.SetFocus;
end;
end;
end;



procedure TForm2.FormCreate(Sender: TObject);
begin
passtime:=0;
end;

end.

数据模块form3.已建好，提供mypass变量。



可是每次进入登陆后输入密码即使有误，也可进入form1.
如果把form1中的form2.showmadal改为form2.show.这时错误密码有 提示信息，
并且实现了此功能，但form2的取消按钮出错。

这是为什么？

受不了你的写法，看来老弟是初学了。努力吧。

你的passtime怎么有倆？ 或许我没你水平高，但我担心不小心搞混了。唉。
如果application.termanate报错的话，试试application.mainform.close;
干脆就form1.close试试。看你的方式只能用showmodal了，要不密码框等于没有。

不好意思。
粗心造成。

上面的有效。

都不管用。
现在我要想实现密码框功能，
只有show.

用show什么都管用，就是退出时有错误信息如下：
cannot change visible in onshow or onhide.