Решение давно нашел, забыл отписать
Чисто под Д2009 индюшный косяк.
Если кому надо, вот(решение нашел
в королевстве):
Код:
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;
И потом соответственно через эту функцию присваиваем исходник страницы в переменную:
Код:
Strani4ka := RussianToUnicode(IdHTTP.Get('url'));