procedure THIMainForm._onDestroy(Obj:PObj);
begin
   Control.Menu:=0; // почему это нельзя добавить?
   Control := nil;
end;

Add(MainForm,9861842,42,35)
{
 Left=20
 Top=105
}
Add(ChildForm,8519128,168,35)
{
}
BEGIN_SDK
  Add(EditMulti,10501179,3,3)
  {
   WorkCount=1
   link(doWork1,13888079:doVisible,[(19,9)(19,139)])
  }
  Add(MainForm,13888079,35,105)
  {
   Left=35
   Top=105
   Width=123
   Height=132
   Visible=1
   Point(onDblClick)
   Point(doVisible)
  }
END_SDK
Add(Button,10042773,105,35)
{
 Left=90
 Top=115
 Caption="Normal"
 link(onClick,8519128:doWork1,[])
}

destructor TXPMenu.Destroy;
begin
  FFont.Free;
  if FBmpCheck<>nil then FBmpCheck.Free;
  FHandle:= 0;                                            // это необходимо добавить.
  inherited;
end;