Переместиться в конец файла

{ прыгаем в конец (eof) }
procedure
 gotoeof (f : file
);
begin

  { перемещаемся в начало }
  seek (f, 0);
  { перемещаемся вперед на "x" количество байт,
    в нашем случае это размер файла! }
  seek (f, filesize(f));
end
; {gotoeof}

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!