#pas
procedure THIButton._OnClick;
var dt:TData;
begin
  if Assigned(_data_Data.Event) then
    begin
      dt := ReadData(dt, _data_Data);
      _hi_OnEvent(_event_onClick, dt);
    end else
      _hi_OnEvent_(_event_onClick,_prop_Data); 
end;