#pas
procedure THILabel._work_DoText;
  var D: TData;
begin
  _var_MouseX(D, 0);
  _debug(ToInteger(D));
  Control.Caption := ReadString(Data,_data_Text);
end;

Add(Label,9628112,252,98)
{
 Left=65
 Top=25
 link(onClick,9458211:doData,[])
}
Add(DoData,9458211,315,98)
{
 Data=String(AAA)
 link(onEventData,9628112:doText,[(354,104)(354,90)(242,90)(242,104)])
}