работа с файлам

[Corleone]

Создай лучше InSteram и читай файл построчно.

f.TEXTMODE(TRUE);
f.OPEN(Filename);
f.CREATEINSTREAM(StreamInObj);

i := 1;
WHILE NOT (StreamInObj.EOS()) DO
BEGIN
StreamInObj.READTEXT(Buffer);
MESSAGE('Line No. %1 %2', i , Buffer);
i := i + 1;
END;

f.CLOSE();