procedure THILabel._work_DoText;
  var D: TData;
begin
   Control.Caption := ReadString(Data,_data_Text);

_var_MouseX(D, 0);
Control.Caption := ToString(D);
end;