[antonio]

Функция ReadLine в MP работает некорректно, и ,чтобы не ставить в конце файла символы типа #, я делаю так:

program resources;
var res   : resource; 
byte: integer; 
line: string; 
index: integer; 
  begin 
      res := openResource('/data.txt'); 
          if (resourceAvailable(res)) then 
      begin 
       repeat
        byte:=readbyte(res);
        line:=line+chr(byte);
       until byte=0;
       closeResource(res); 
      end; 
      showForm; 
                  index := formAddString(line); 
                 delay(1000000000); 
  end.