Как заставить форму не разворачиваться из иконки?

procedure WMQueryOpen(var Msg: TWMQueryOpen);
  message WM_QUERYOPEN;
 
// ... и ее реализация
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);
begin
  Msg.Result := 0;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0