procedure _work_doTaskBar(var Data:TData; Index:word);[/code]
В реализации
procedure THIMainForm._work_doTaskBar;
begin
   _prop_TaskBar := ToInteger(Data);
end;