#pas
procedure THITrimEx._work_doTrim;
var
  I, L: Integer;
begin
 case _prop_Mode of
  0:begin
      FRes := ReadString(_Data,_data_Text,');
      if _prop_Char = ' then ch :=  else ch := _prop_Char[1];
      L := Length(FRes);
      I := 1;
      while (I <= L) and (FRes[I] = ch) do Inc(I);
      while (L > 0) and (FRes[L] = ch) do Dec(L);  
      Fres := Copy(FRes, I, L-I+1);
     _hi_CreateEvent(_Data,@_event_onTrim, Fres);  
    end;
  1:begin
     FRes := ReadString(_Data,_data_Text,');
     if _prop_Char = ' then ch :=  else ch := _prop_Char[1];
     L := Length(FRes);
     I := 1;
     while (I <= L) and (FRes[I] = ch) do Inc(I);
     while (L > 0) and (FRes[L] = ch) do Dec(L);  
     Fres := Copy(FRes, I, L-I+1);
     _hi_CreateEvent(_Data,@_event_onTrim, Fres);  
    end;
  2:begin
     FRes := ReadString(_Data,_data_Text,');
     if _prop_Char = ' then ch :=  else ch := _prop_Char[1];
      L := Length(FRes);
      I := 1;
      while (I <= L) and (FRes[I] = ch) do Inc(I);
      while (L > 0) and (FRes[L] = ch) do Dec(L);  
      Fres := Copy(FRes, I, L-I+1);
      _hi_CreateEvent(_Data,@_event_onTrim, Fres);  
    end;
 end;
end;