Code:

procedure WMQueryOpen(var Msg: TWMQueryOpen);

message WM_QUERYOPEN;

// ... и ее реализация

procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);

begin

Msg.Result := 0;

end;