Чтение текстового файла на сервере(WinInet)

[саша40]

Привет. Прописал код:

var
hSesion,hUrl: HInternet;
Buffer: array [0..1023] of Char;
nRead: Cardinal;
begin
hSesion:=InternetOpen('FindWeb',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
try
hUrl:=InternetOpenUrl(hSesion,PChar('http://fortergo.3dn.ru/1.txt'),nil,0,0,0); 
try
repeat
InternetReadFile(HUrl,@Buffer,sizeof(Buffer),nRead);
ListBox1.Items.Add(String(Buffer));
until
nRead=0;

finally
InternetCloseHandle(hUrl);
end;

finally
InternetCloseHandle(hSesion);
end;

В файле написано так:
Привет
Как дела?
Это проверка функции.
Всё прошло удачно!

А выдало одной стракой и два раза. Вопрос: Как исправить?

[Aqel]

Знаю тема старая, но вопрос актуальный такого типа, по коду выше(сделал функцией):
Пытаюсь прочитать текстовый файл с сайта (https://) - кракозябы в ответе. Файл на сайте записан в UTF8, пробовал конвертить в ANSI - толку нет, так же кракозябы.

ВОПРОС: Как сделать, что бы читал нормально, к тому же в файле всего лишь числа?