#pas
function ГЫ_ГЫ_ГЫ.TextWidth:integer;
begin
  // твои коды
end;

procedure ГЫ_ГЫ_ГЫ._var_TextWidth;
begin
  dtInteger(_Data,TextWidth);
end;
...............
  eFrg := TextWidth + ReadInteger(_Data,_data_Interval,_prop_Interval);
  if tFrg = eFrg then