[jkeks]

Ох и не люблю я кодировки всякие, поэтому пошел совсем иным путем, и написал другой трансляторчик..

s1:='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ';
        s2:='йцукенгшщзхъфывапролджэячсмитьбюё';
        s3:='IcukengSZzhNfEvaproldWFyPsmitMbUY';

Перекодировка так:
                    // преобразование users в англ
                    for i:=0 to length(users) do
                        begin
                        for o:=0 to length(s1) do
                            begin
                            if getChar(users,i)=getChar(s1,o) then users:=setChar(users,getChar(s2,o),i);
                            if getChar(users,i)=getChar(s2,o) then users:=setChar(users,getChar(s3,o),i);
                            end;
                        end; 


Чем вполне доволен очень, правда Заглавные буквы как понимаете я зарезал, зато от кодировок и регистров избавился нафиг вообще.

И еще.. размещайте ваши сайты в рейтинге hobocash.com