function RussianToUnicode(S: String): String;
   var Wrd:Word;
     pW,pR:PWord;
    len:Integer;
   begin
    pW:=@S[1];
     len:=Length(S);
    SetLength(Result,len);
    pR:=@Result[1];
     while Len<>0 do begin
       Wrd:=pW^;
      case Wrd of
       $C0..$DF,$E0..$FF:pR^:=Wrd+50;
        else pR^:=Wrd;
      end;
      inc(pW);
     inc(pR);
    dec(Len);
   end;
  end;

RussianToUnicode(StrPage );