[zip000]

При испльзовании TFileStream для работы с файлами достаточно присвоить нужный размер свойству Size. И все.

Код:

var f : TFileStream;
f := TFileStream.Create('SomeFile', fmOpenWrite);
f.Size := f.Size - 1; // обрезаем файл на 1 байт.
f.Free;