Keep in mind using "Append" requires you to test the IO status afterwards, in case the file does not exists.
InOutRes := 0;
AppendFile(F,'???????.???');
If InResult <> 0 Then Rewrite(F); //We'll assume the error is #2 "File Not found"
from here you can use Writeln to add lines to the file.