procedure Flush(var F:  TextFile);

Процедура Flush заставляет вывести буферизованный текст в текстовый файл, открытый для записи (процедурами Append или Rewrite). По умолчанию текстовый файл накапливает строки текста в буфере до записи в файл. Flush - это не настоящая процедура.

• Если файл не был открыт, Flush генерирует ошибку ввода/вывода 103.
  
• Если процедура Flush не может записать файл, например, из-за того что диск полон, в качестве ошибки ввода/вывода выдается код ошибки Windows.
  
• Допускается вызов функции Flush и для входного файла (открытого процедурой Reset), но в этом случае процедура не выполняет никаких действий.

Flush сбрасывает буфер Delphi, но не буферы операционной системы. Чтобы быть уверенным в записи всех данных, закройте файл.