Cannot change visible in onshow or onhide ошибка

  type

  TDisconnectForm = class(TForm)

  procedure Ic(n:Integer;Icon:TIcon);

    procedure FormShow(Sender: TObject);

     protected

  procedure IconMouse(var Msg: TMessage); message WM_USER + 1;

procedure ControlWindow(var Msg: TMessage); message WM_SYSCOMMAND; // WM_SYSCOMMAND       = $0112;

  end;

var

  DisconnectForm: TDisconnectForm;

  Time:Integer;

implementation

uses WarningFormU;

{$R *.dfm}

procedure TDisconnectForm.FormShow(Sender: TObject);

var

sTime:string;

begin

sTime:=Paramstr(1);

try

{Проверка полученных данных}

//Time:=strtoint(stime);

Time:=2;

except

ShowMessage(‘Ошибка в параметре’);

Close;

application.Terminate;

exit;

 end;

if (time<=0) then begin

ShowMessage(‘Не положительное число’);

Close;

application.Terminate;

exit;

end;

//Праметр задан верно — включаем таймер

Inc(time);

ic(1,application.Icon);

showwindow(handle, SW_hide);

showwindow(Application.handle, SW_HIDE);

{

В DRKB написано что так можно спрятать форму

Но она не прячеться — она остаеться видимой

}

Timer1.Enabled:=true;

end;

procedure Tdisconnectform.ControlWindow(var Msg: TMessage);

begin

if (Msg.WParam = SC_MINIMIZE) then

 begin

Ic(1, Application.Icon);

showwindow(Handle, SW_hide);

//showwindow(Application.handle, SW_HIDE);

end

else

inherited;

end;

Procedure TDisconnectForm.Ic(n:Integer;Icon:TIcon);

Var Nim:TNotifyIconData;

begin

 With Nim do Begin

 cbSize:=SizeOf(Nim);

 Wnd:=disconnectform.Handle;

 uID:=1;

 uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;

 hicon:=Icon.Handle;

 uCallbackMessage:=WM_USER+1;

 szTip:=’Tip’

 End;

Case n OF

 1: Shell_NotifyIcon(NIM_ADD,@Nim); //

 2: Shell_NotifyIcon(NIM_DELETE,@Nim); //

 3: Shell_NotifyIcon(NIM_MODIFY,@Nim); //

 End;

end;

procedure Tdisconnectform.IconMouse(var msg:Tmessage);

var

p: tpoint;

begin

GetCursorPos(p);

if (Msg.LParam  = WM_RBUTTONUP) then

 begin

 PopupMenu1.Popup(p.X,p.Y);

 PostMessage(Handle, WM_NULL, 0, 0);

 end;

end;

Visible:=false

Application.Minimize

Application.Minimize; Visible:=false;

1) В TDisconnectForm.FormShow
Получаем:
Debugger Exception Notification

Project Disconnect.exe raised exception class EInvalidOperation with message
‘Cannot change Visible in OnShow or OnHide’. Process stopped. Use Step or
Run to continue.
( Нельзя менять visible в OnShow)

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.ShowMainForm := False;

end;

Только для главной формы нужно делать так:
Application.ShowMainForm := False;

TDisconnectForm.FormShow

ic(1,application.Icon);

showwindow(handle, SW_hide);

showwindow(Application.handle, SW_HIDE);

procedure TForm1.Button10OnClick(Sender:TObject);

Begin

   HideToSysTray; // прячемся

   Form1.Visible:=False

End;

procedure TForm1.Button1Click

begin

Visible:=false;

end;

procedure TForm1.FormShow

begin

Visible:=false;

end;

  Form1.Visible:=False

  Procedure TForm1.Timer1Timer(Sender:TObject);

  Begin  

     Timer1.Enabled:=False; // что б больше не реагировал

     HideToSysTray; // прячемся в трей

  End;

form1.top:=3000;

form1.left:=3000;

form1.Top:=0;

form1.Left:=0;

form1.Width:=0;

form1.Height:=0

Application.ShowMainForm:=false;