Кодировка HTML

[Hsl]

Еще раз добрый день. Столкнулся с еще одной проблемой, поиски в Google и на форуме не помогли, хотя что-то нужное промелькнуло.
Существует такой кусок кода:

rezop:=idhttp1.Get('http://site.ru/account');

Да, буду парсить информацию.
Код для парсинга (нашел в интернете):

function Pars (T_, ForS, _T: string): string;
var a, b: integer;
begin
result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_,ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=copy(ForS, 1, b - 1);
end;

Если я пытаюсь искать вот это:

if pos('/account/exit', rezop) <> 0 then
begin

Всё отлично.
Но когда мне необходимо спарсить русскую информацию, в частности слово "Баланс", то информации не выдаёт.
После, решил проверить что выводит в Memo1 rezop.
Оказывается, имеется неправильная кодировка, в частности, CP1252. И её мне необходимо перевести в CP1251.
Были догадки как реализовать это, но в Delphi перешел совсем недавно.

[Stilet]

Хм... Могу тебя только направить на изучение класса TEncoding. Он в современных Делфи отвечает за перекодировку.

[Человек_Борща]

Можно так..

rezop:=idhttp1.Get('http://site.ru/account',TEncoding.GetEncoding(1251));

[Hsl]

Сообщение от Человек_Борща

Можно так..

rezop:=idhttp1.Get('http://site.ru/account',TEncoding.GetEncoding(1251));

Выдает ошибку:

[dcc32 Error] Unit2.pas(72): E2250 There is no overloaded version of 'Get' that can be called with these arguments

Естественно, просто заменил Ваш код на мой без добавления чего-либо.
( На всякий случай добавил строку:

Encoding: TEncoding;

)
Также попробовал добавить этот код:

idHttp1.Request.AcceptCharSet:='windows-1251';

Результат без изменений.

[Человек_Борща]

Encoding: TEncoding;

если у вас IDE старше 2009й, то у вас нет этого класса.

[Hsl]

Сообщение от Человек_Борща

если у вас IDE старше 2009й, то у вас нет этого класса.

Delphi XE3..

[Человек_Борща]

Hsl, подключите System.SysUtils.

[Hsl]

Сообщение от Человек_Борща

Hsl, подключите System.SysUtils.

Подключено. Всё та же ошибка:

[dcc32 Error] Unit2.pas(70): E2250 There is no overloaded version of 'Get' that can be called with these arguments

В строке:

rezop:=idhttp1.Get('http://site.ru/account',TEncoding.GetEncoding(1251));

[Человек_Борща]

Там все правильно. GET метод не тот. По справке посмотрите, какой-там 2й параметр должен быть... там 3 параметра на входе..