#pas
eFrg := Frg - Argument(0);

#pas
function THIRunText.Argument(Value:Integer):integer;
var dt:TData;
begin
  case _prop_Kind of
   0: _var_TextWidth(dt,0);
   1: _var_TextHeigh(dt,0);
  end;
end;