procedure THIIcon._work_doBitmap;
var bmp:PBitmap;
begin
 if Icon <> nil then
  begin
    bmp := NewBitmap(0,0);
    bmp.Handle := Icon.Convert2Bitmap(_prop_Transparent);
    _hi_OnEvent(_event_onBitmap,bmp);
    bmp.Free;
  end;
end;[/code]Он не работает нормально, а вот исправленный
procedure ThiIconEx._work_doBitmap;
var bmp:PBitmap;
begin
   if (_Data.Data_type <> data_Icon) and (not Assigned(Icon)) then exit
   else if (_Data.Data_type = data_Icon) then
      begin
         if Assigned(Icon) then free_and_nil(Icon);
         Icon := NewIcon;
         Icon.Handle:= PIcon(_data.idata).handle
      end;
   bmp := NewBitmap(0,0);
   bmp.Handle:= Icon.Convert2Bitmap(_prop_Transparent);
   dtBitmap(_Data,bmp);
   _hi_OnEvent(_event_onBitmap,_Data);
   bmp.Free;
end;
Он работает нормально.