[Alegun]

Тоже самое, но немного по-другому

Код:

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;