#pas
//======================================================================

procedure THICharset._work_doCharset13;
var   ru:string;
      en:string;
      i,p:cardinal;
      Result:string;
begin
   ru := ToStringEvent(_data_Ru);
   en := ToStringEvent(_data_En);
   Result := ReadString(_Data,_data_Text,');
   if Result <> ' then
    for i := 1 to Length(Result) do
     begin
        p := pos(Result[i],en);
        if p > 0 then
         Result[i] := ru[p];
     end;
   _hi_OnEvent(_event_onCharset,Result);
end;
//========================================================================