Тоже самое, но немного по-другому
Код:
procedure cf(Name: string; Pos: integer);
var
fs: TFileStream;
fm: TMemoryStream;
begin
fs:= TFileStream.Create(Name, fmOpenRead);
fs.Position:= Pos;
fm:= TMemoryStream.Create;
fm.CopyFrom(fs, fs.Size - Pos);
fs.Free;
fm.SaveToFile(Name);
fm.Free;
end;