#pas
..........
..........
 var 
    cStr,css:string;
    i,t:integer;
begin
 cStr := AnsiLowerCase(ReadString(_Data,_data_Str));
 css:=';
 For i:=1 to Length(cStr) do          // Берем по одной букве, начиная с первой
     begin
      t:= PosEx(cStr[i], Russian,1); // ищем в алфавите 
       // и если нет,то добавляем исходную, а если есть, то добавляем найденную       
       if t=0 then css:=css+cStr[i] else css:=css+Translit[t];
     end;
     _hi_CreateEvent(_Data,@_event_onWork,css);
end;