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

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