#pas
procedure THILabel._OnClick;

begin
   _hi_OnEvent(_event_OnClick);
end;

#pas
procedure THILabel._OnClick;
begin
   _hi_OnEvent(_event_OnClick,Control.Caption);
end;