Append插入方式为什么最后还有一个空行?(1分)

var
F: TextFile;
begin
AssignFile(F,'c:/abc.txt');
Append(F);
Writhe(F, '123456');
CloseFile(F);
end;
用记事本打开c:/abc.txt
123456
空一行文件尾
问题:如何把最后一空行删掉呢?