Делов - на строчку кода... И ту, без ошибок сделать не умеют. Эксперты, блин.
procedure THIButton._OnClick;
begin
_hi_OnEvent(_event_onClick, ReadData(_prop_Data, _data_Data));
end;