functionRussianToUnicode(S:String):String;

                                      var
Wrd:Word;
Len:Integer;
pW,pR:PWord;
begin

                                        pW:= @S[1];
Len:=Length(S);
SetLength(Result,Len);
pR:= @Result[1];

                                      whileLen<>0do
begin

                                        Wrd:=pW^;

                                      caseWrd of

                                        $C0..$DF,$E0..$FF:pR^:=Wrd+ $0350;

                                      elsepR^:=Wrd;
end;
Inc(pW);
Inc(pR);
Dec(Len);
end;
end;