Функция 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.