SetFilePointer help

I'm using Delphi's FIleSeek function and am trying to seek to a file's EOF to write to it.
The result isnt static and the result varies. can someone show me how to FileOpen, seek to EOF and append a few lines, afterwards show me how to delete only the lines I just appended to the file.

thanks
Thor371