Como evito que TStrings.SaveToFile crie uma linha final vazia?

Eu tenho um arquivo .\input.txtcomo este: aaa bbb ccc Se eu o ler TStrings.LoadFromFilee escrevê-lo novamente (mesmo sem aplicar nenhuma alteração) TStrings.SaveToFile, ele criará uma linha vazia no final do arquivo de saída. var Lines : TStrings; begin Lines := TStringList.Create; try...