Трей

[DIgorevich]

могу и ошибиться, но почему бы не попробовать заменить код на:

procedure TForm1.HideMainForm;
begin //при сокрытии окна
  Application.ShowMainForm := False;
  form1.hide;
end;

procedure TForm1.RestoreMainForm;
var i,j : Integer;
begin
  Application.ShowMainForm := True;
  form1.show;
    for I := 0 to Application.MainForm.ComponentCount -1 do
      if Application.MainForm.Components[I] is TWinControl then
        with Application.MainForm.Components[I] as TWinControl do
          if Visible then
          begin
            ShowWindow(Handle, SW_SHOWDEFAULT);
            for J := 0 to ComponentCount -1 do
              if Components[J] is TWinControl then
                ShowWindow((Components[J] as TWinControl).Handle, SW_SHOWDEFAULT);
          end;
end;

Procedure TForm1.WMGetSysCommand(var message : TMessage);
begin
 if (Message.wParam=SC_MINIMIZE) then
 begin
       HideMainForm;
       CreateTrayIcon(1);
  end
  else
       inherited; 
end;

Сообщение от Kotofff

А зачем столько мучений, вопросов, порожденных непонятками типа "ведь делает но редко", когда существуют уже проверенные и объезженные компоненты работы с треем (CoolTrayIcon, к примеру), используя которые не отвлекаешься на мелочи, а делаешь программу ...

Ну может человек разобраться хочет... а если исходить из того, что есть компоненты, то можно половину тем прикрыть, т.к. компонентов ну очень много.