Добавление строчки в файл delphi

есть файл, в нем уже находятся строчки, как добавить туда новые, не удаляя содержимое файла ?
пример:

ДО файл 1
строка1
После
фойл 1
строка 1
строка 2
строка 3

строки находятся в ListBox2