Add(DoData,6351045,182,245)
{
 link(onEventData,4794281:doWork1,[(271,251)(271,209)])
}
Add(ChildScrollBox,4794281,329,203)
{
}
BEGIN_SDK
  Add(EditMulti,10736212,3,3)
  {
   WorkCount=3
   Width=524
   Height=375
   link(doWork1,9705101:doEvent1,[(54,9)(54,132)])
   link(doWork2,5267091:##clear,[(113,16)(113,139)])
   link(doWork3,5267091:##delete,[(113,23)(113,146)])
  }
  Add(ScrollBox,13089319,469,336)
  {
   Width=78
   Height=474
   Align=1
   Point(doVisible)
  }
  Add(ChildPanelEx,5267091,224,126)
  {
   Mode=1
   link(index,5267091:##index,[(230,116)(214,116)(214,168)(230,168)])
  }
  BEGIN_SDK
    Add(EditMultiEx,13748618,3,3)
    {
     WorkCount=#5:##add|7:##clear|8:##delete|
     VarCount=#7:##index|
     DataCount=#5:index|
     Height=263
     Point(##add)
     Point(##index)
     Point(##clear)
     Point(##delete)
     link(##add,16583166:doEvent1,[(43,9)(43,104)])
    }
    Add(Panel,6227834,259,14)
    {
     Left=2
     Top=2
     Width=51
     Height=43
     Align=2
     Color=16777215
     Point(doColor)
    }
    Add(Image,7285057,140,175)
    {
     Left=2
     Top=2
     Width=47
     Height=39
     Align=5
     ViewStyle=1
    }
    Add(Hub,16583166,84,98)
    {
     OutCount=4
     link(onEvent1,5787247:doData,[(135,104)(135,62)])
     link(onEvent2,7285057:doLoad,[(128,111)(128,181)])
     link(onEvent4,12191879:doText,[(145,125)(145,132)])
    }
    Add(Memory,9904725,259,56)
    {
    }
    Add(DoData,5787247,154,56)
    {
     link(onEventData,9502022:doConvert,[(198,62)(198,62)])
    }
    Add(Img_Text,15914246,42,189)
    {
     Font=[MS Sans Serif,10,5,255,1]
     DrawSource=1
     link(Bitmap,7285057:ImageBitmap,[(48,179)(96,179)(96,224)(146,224)])
    }
    Add(Convertor,9502022,203,56)
    {
     link(onResult,9904725:doValue,[])
     link(Data,13748618:index,[(209,30)(9,30)])
    }
    Add(Label,12191879,175,126)
    {
     Width=20
     Color=15793151
     link(Text,9904725:Value,[(181,107)(265,107)])
    }
  END_SDK
  Add(Hub,9705101,105,126)
  {
   link(onEvent1,5267091:##add,[])
  }
  Add(ChildPanelEx,14820338,217,28)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,10791289,3,3)
    {
    }
    Add(Panel,9403190,35,105)
    {
     Width=74
     Height=23
     Align=2
     Color=8421504
     Font=[MS Sans Serif,12,1,16777215,1]
     Caption="Tools"
     Alignment=2
     Point(doColor)
    }
  END_SDK
END_SDK
Add(Button,3842272,84,231)
{
 Left=100
 Top=30
 Caption="Test"
 link(onClick,6351045:doData,[(142,237)(142,251)])
}
Add(Button,14667302,182,301)
{
 Left=100
 Top=105
 Caption="Очистить "
 link(onClick,4794281:doWork2,[(272,307)(272,216)])
}
Add(Button,1492978,182,364)
{
 Left=100
 Top=75
 Caption="Удалить"
 Data=Integer(0)
 link(onClick,4794281:doWork3,[(272,370)(272,223)])
}

  if (Msg.hwnd=0)and(Msg.message=CM_EXECPROC) then 
    TObjectMethod(TMethod(wParam,lParam))
  else
    ...

F.refs ++;[/code]

далее где-то внутри удаляем сами себя:
F.isDelete := true;[/code]

и наконец опять в мультике:
F.refs--;
if(F.refs = 0)and F.isDelete then
  HDelete(MakeData(F), 0);