{ объявление процедуры в классе TMainForm }  
  
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;  
  
{ ... и ее реализация }  
  
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);  
begin  
  Msg.Result := 0;  
end;