["Hatchet" Harry]

Решение давно нашел, забыл отписать
Чисто под Д2009 индюшный косяк.
Если кому надо, вот(решение нашел в королевстве):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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+$0350;       else pR^:=Wrd;     end;     inc(pW);     inc(pR);     dec(Len);   end; end;

И потом соответственно через эту функцию присваиваем исходник страницы в переменную:

Код:

1	Strani4ka := RussianToUnicode(IdHTTP.Get('url'));