#pas
eFrg := word(_var_TextWidth(_Data,0)) + ReadInteger(_Data,_data_Interval,_prop_Interval);
     if tFrg = eFrg then

(58) Error: Invalid typecast
(58) Error: Incompatible types: 'THI_Event' and 'Integer'

#pas
  eFrg := ToIntegerEvent(_var_TextWidth);
  inc(eFrg, ReadInteger(_Data,_data_Interval,_prop_Interval));
  if tFrg = eFrg then

#pas
word(_var_TextWidth(_Data,0))

#pas
_var_TextWidth(dt,0);
eFrg := ToInteger(dt) + ReadInteger(_Data,_data_Interval,_prop_Interval);

#pas
procedure _var_TextWidth(var _Data:TData; Index:word);

#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);