var
  F: TextFile;
  S: String;
begin
  AssignFile(F, 'MyTextFile.txt');  //Связываем файловую переменную с файлом
  {$I-}  //Отключаем сообщения об ошибках
  Reset(F);  //Открываю файл для чтения  (Позиция равна нулю)
  Readln(F, S);  //Читаю первую строку (Позиция изменлась)
  Flush(F);  //Освобождаю память (Не уверен, что это нужно делать при чтении,
если кто знает поясните)
  Closefile(F);  //Закрываю файл
end;