procedure WMQueryOpen(var Msg: TWMQueryOpen);
  message WM_QUERYOPEN;

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