[lmikle]

см процедуру seek.

Из хелпа:

To expand a file, seek one component beyond the last component; that is, the statement Seek(F, FileSize(F)) moves the current file position to the end of the file.