有一个主FOMR1,另外FORM2,3，点击相关按钮弹出FORM2,FORM3.
form2,3的代码如下


[code delphi]
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
form2:=TForm2.Create(self);
with form2 do
begin
top:=0 ;
left:=Screen.Width -form2.Width ;
FormStyle:=fsStayOnTop;
Show;
Timer1.Enabled :=true;
end
end
procedure TForm2.Timer2Timer(Sender: TObject);
begin
if not assigned(Form3) then
form3 := Tform3.Create(Self);
form3.Top := Screen.Height -30;
form3.Left := Screen.Width - form5.Width;
form3.Timer1.Enabled := True;
Form3.FormStyle :=fsStayOnTop;
form3.Show;
end;
[/code]
现在的问题是，我在主界面（设为fsstaytop）打开的情况下，可以正常运行，但是当我让主界面最小化后，代码如下：

[code delphi]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
application.Minimize ;
Application.MainForm.Visible := False;
if IsWindowVisible(Application.Handle) then
ShowWindow(Application.Handle, SW_HIDE );
form1.FormStyle:=fsNormal;
[/code]
所有正在运行的form2,form3都会关闭，但是当我这时在重新做一遍，他又正常了，大大们，可否帮我看看，问题
出在哪里，应该怎么改？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !