I
while not Reader.Eof do begin
прочитаноБайт := Reader.Read(Буфер, 65536);
for i:=1 to прочитаноБайт do begin
if Буфер[i] = #10 then begin
Inc(НомерСтроки);
if НомерСтроки = ИскомыйНомер then begin
// нашли строку
end;
end;
end;
end;
