Add(MenuEx,7228811,84,175)
{
 Bitmaps=[]
}

Build start...
Generated code
Create project...
Command line: dcc32.exe "...\HiAsm\Elements\Delphi\code\_MandalaD.dpr" "-U...\HiAsm\My\." -Q "-E...\HiAsm\My\
Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

...\HiAsm\Elements\Delphi\code\XPMenus.pas(276) Hint: Variable 'grayBMP' is declared but never used in 'TXPMenu.DrawItem'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(94) Warning: Variable 'cur' might not have been initialized

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(109) Hint: Variable 'b' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(109) Hint: Variable 'p' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(110) Hint: Variable 'vc' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(110) Hint: Variable 'kc' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(111) Hint: Variable 'str' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(111) Hint: Variable 's' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(111) Hint: Variable 'vs' is declared but never used in 'THIMenuEx.SetItems'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(186) Hint: Variable 's' is declared but never used in 'THIMenuEx._work_doCheck'

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(23) Hint: Private symbol 'ClearSpecSymbol' declared but never used

...\HiAsm\Elements\Delphi\code\hiMenuEx.pas(28) Hint: Private symbol '_Destroy' declared but never used

...\HiAsm\Elements\Delphi\code\hiPopupMenu.pas(81) Hint: Variable 'i' is declared but never used in 'THIPopupMenu.RefBMP'

...\HiAsm\Elements\Delphi\code\hiPopupMenu.pas(15) Hint: Private symbol '_OnDraw' declared but never used

...\HiAsm\Elements\Delphi\code\KOLmdvPanel.pas(188) Hint: Variable 'br' is declared but never used in 'TmdvPanel.Paint'

...\HiAsm\Elements\Delphi\code\hiBitBtn.pas(31) Warning: Redeclaration of '_prop_Flat' hides a member in the base class

KOLComObj.pas(1614) Hint: Value assigned to 'Status' never used

KOLComObj.pas(2337) Hint: Value assigned to 'SaveInitProc' never used

ActiveKOL.pas(564) Warning: Return value of function 'TEnumPropDesc.StringToValue' might be undefined

...\HiAsm\Elements\Delphi\code\hiODialog.pas(38) Hint: Variable 's' is declared but never used in 'THIODialog._work_doExecute0'

...\HiAsm\Elements\Delphi\code\hiImg_Ellipse.pas(68) Warning: Variable 'br' might not have been initialized
293580 lines, 9.70 seconds, 3351976 bytes code, 10533 bytes data.
End build

   FMainMenu := NewMenu( Applet, 0, ListMenu, nil );
   Form.Menu := FMainMenu.Handle;

   FMainMenu := NewMenu( Form, 0, ListMenu, nil );

if Control=nil then exit[/code]он нормально отрабатывал при отправке на пустой Control мессаги?

Build start...
Generated code
Create project...
Command line: dcc32.exe "...\HiAsm\Elements\Delphi\code\_NumbersD.dpr" "-U...\HiAsm\My\." -Q "-E...\HiAsm\My\
Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

...\HiAsm\Elements\Delphi\code\ListEdit.pas(237) Hint: Value assigned to 'o' never used

...\HiAsm\Elements\Delphi\code\ListEdit.pas(230) Hint: Value assigned to 'o' never used

...\HiAsm\Elements\Delphi\code\ListEdit.pas(220) Hint: Variable 'c' is declared but never used in 'TListEdit.LVChange'

...\HiAsm\Elements\Delphi\code\hiStringTable.pas(253) Warning: Return value of function 'THIStringTable._OnCompareLVItems' might be undefined

...\HiAsm\Elements\Delphi\code\hiStringTable.pas(12) Hint: Private symbol '_OnClick' declared but never used

...\HiAsm\Elements\Delphi\code\KOLmdvPanel.pas(188) Hint: Variable 'br' is declared but never used in 'TmdvPanel.Paint'

KOLComObj.pas(1614) Hint: Value assigned to 'Status' never used

KOLComObj.pas(2337) Hint: Value assigned to 'SaveInitProc' never used

ActiveKOL.pas(564) Warning: Return value of function 'TEnumPropDesc.StringToValue' might be undefined

...\HiAsm\Elements\Delphi\code\hiODialog.pas(38) Hint: Variable 's' is declared but never used in 'THIODialog._work_doExecute0'

...\HiAsm\Elements\Delphi\code\hiGrapher.pas(184) Hint: Variable 'j' is declared but never used in 'THIGrapher.DrawBmp'

...\HiAsm\Elements\Delphi\code\hiGrapher.pas(16) Hint: Private symbol 'HB' declared but never used

...\HiAsm\Elements\Delphi\code\hiImgBtn.pas(28) Warning: Redeclaration of '_prop_Flat' hides a member in the base class
108432 lines, 2.14 seconds, 1239380 bytes code, 5409 bytes data.
End build

type
 THIWin = class(TDebug)
   protected
     NoKill:boolean;
     ....
destructor THIWin.Destroy;
begin
  if not NoKill then begin
    Split.Free;
    Control.Free;
  end;
  inherited;
end;

procedure THIWin._OnDestroy;
begin
  NoKill := true;
end;

procedure THIMainForm._onClose;
...
     //Applet := nil;
     //Control := nil;
    end;
end;