Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Подкиньте идею - нужно последовательно считывать по строке из текстового файла используя WinApi. Получается считать сразу весь файл в буфер, а можно ли сделать это именно построчно? Просто разделять вручную массив немного геморно.
Часть кодa:

Код:

const
  MAX_BYTES_TO_READ = 65536;

var
  hFile: Cardinal;
  dw: DWORD;
  buf: array of char;
  len: integer;
begin
  hFile:= CreateFile('file.zip', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  If hFile = -1 then exit;
  len:=GetFileSize(hFile, nil);
  SetLength(buf, len);
  repeat
    ReadFile(hFile, buf, MAX_BYTES_TO_READ, dw, nil);
  until dw = 0;
  CloseHandle(hFile);