#pas
procedure THITrimEx._work_doTrim;
begin
 case _prop_Mode of
  0: _work_doTrim0(_data, 0);
  1: _work_doTrim1(_data, 0);
  2: _work_doTrim2(_data, 0);
 end;
end;