#pas
    _prop_Text:string;
    public
    ...
    _prop_Interval:integer;
    ...
    _data_Text:THI_Event;
    _data_Interval:integer;
    ...
    procedure _var_Fragment(var _Data:TData; Index:word);
    procedure _var_TextWidth(var _Data:TData; Index:word);
    procedure _var_TextHeigh(var _Data:TData; Index:word);
implementation
...
var   dt,dt1: TData;
      hOldFont: HFONT;
      OldFontSize,tFrg,eFrg: Integer;
      s:string;
begin 
   dt := _Data;
   Frg := Frg-1;
   if Frg<0 then 
    begin
     tFrg := Frg*(-1); 
     _var_TextWidth(dt1,0);
     eFrg := ToInteger(dt1) + ReadInteger(_Data,_data_Interval,_prop_Interval);
     if tFrg = eFrg then _work_doReset(_Data,0);
    end
    else begin
     tFrg := Frg;
    end;
   eFrg := ReadInteger(_Data,_data_Y,_prop_Y) shl 16 + Frg;
   dtInteger(_Data,eFrg);