[romoga]

var
res : resource;
byte : integer;
line : string;
index : integer;
begin
res := openResource('/data.txt');

if (resourceAvailable(res)) then
begin
byte := readByte(res);
line := readLine(res);

closeResource(res);
end;

showForm;
index := formAddString('Byte is: ' + chr(byte));
index := formAddString('Line is: ' + line);
delay(1000);
end.
этот код не пашет выводит byte is: [] line is: