procedure THICopy._work_doCopy;
var   str:string;
      Pos,Count:integer;
begin
   str := ReadString(_Data,_data_Str,');
   if str <> ' then begin
      Count := ReadInteger(_Data, _data_Count, _prop_Count);
      Pos := ReadInteger(_Data, _data_Position, _prop_Position); 
      if Count < 0 then begin  // если отрицательное, то копируется с конца.
         Pos := Length(str) + Count + 2 - Pos;
         Count := Abs(Count);
      end;
      if Pos <= 0 then begin 
         Inc(Count, Pos-1);
         Pos := 1;
      end;
      _hi_CreateEvent(_Data, @_event_onCopy, Copy(str,Pos,Count));
   end;
end;