Не работает цикл чтения файла - PascalABC.NET

Вот часть кода:

while not eof(FileText)  do
  begin
  
  read(FileText,Str);
  RichTextBox1.Text:=RichTextBox1.Text+Str;
  
  end;

Зависает и не работает. В чём ошибка?

Листинг программы

begin
  var fileName := ReadLnString('Имя файла:');
  foreach var Str in ReadLines(fileName) do
    WriteLn(Str);
end.

Объяснение кода листинга программы

Программа запрашивает у пользователя имя файла, который нужно прочитать.
Затем происходит попытка считать файл по указанному имени.
Если файл не найден или что-то другое идет не так, программа выведет сообщение об ошибке и завершится.
Если файл успешно открыт и прочитан, программа выведет каждую строку файла на отдельной строке.