Форум АНТИЧАТ - [Delphi] Кодировка

Решил что это требует отдельной темы т.к. в гугле не смог найти ответ на этот вопрос....

Вообщем юзаю wininet

Код:

function GetStr(url: string): string;

const

  BufferSize = 6536;

var

  hInternet, hConnect: pointer;

  Buffer: array[1..BufferSize] of char;

  BufferLen: LongWord;

  i: integer;

begin

  result:='';

  hInternet:=InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0)', INTERNET_OPEN_TYPE_PRECONFIG,0, nil, 0);

  if Assigned(hinternet) then

  try

    hConnect:=InternetOpenUrl(hInternet, pchar(url),  nil, 0, 0, 0);

  repeat

  if not InternetReadFile(hConnect, @Buffer, SizeOf(Buffer), BufferLen) then

    bufferlen:=0;

    for i:=1 to bufferlen do result:=result+char(Buffer[i]);

    until bufferlen=0;

  finally

    InternetCloseHandle(hinternet);

  end;

end;

Вывожу в мемо GetStr('http://......php');
Но...Русский текст выводит в utf-8...
А надо бы вывести как ннормльный русский текст =)

//Может я что-то не так понял...Но вот прога http://webfile.ru/1469634 ни в какие поля ничего не вводите... просто кнопку нажмите и будет утф =(