¿Cómo evito que TStrings.SaveToFile cree una línea vacía final?

Tengo un archivo .\input.txtcomo este: aaa bbb ccc Si lo leo usando TStrings.LoadFromFiley lo escribo de nuevo (incluso sin aplicar ningún cambio) TStrings.SaveToFile, crea una línea vacía al final del archivo de salida. var Lines : TStrings; begin Lines := TStringList.Create; try...