TempStream := TMemoryStream.Create;
 try
{------FS in TempStream kopieren---}
   FS.Seek(0, soFromBeginning);
   TempStream.CopyFrom(FS, FS.Size);
{------FS "leeren"-----------}
   FS.Free;
   FS := TFileStream.Create(BaumPfad, fmCreate);

{------Alles außer Ausschnitt zurückkopieren----}
   TempStream.Seek(0, soFromBeginning);
   FS.CopyFrom(TempStream, StartPos);
{------Größe des Ausschnitts überspringen------}
   TempStream.ReadBuffer(Len, SizeOf(Len));
   TempStream.Seek(Len, soFromCurrent);
   TempStream.ReadBuffer(Size, SizeOf(Size));
   TempStream.Seek(Size, soFromCurrent);
{------Daten hinter dem Ausschnitt wieder anfügen------}
   FS.CopyFrom(TempStream, TempStream.Size-TempStream.Position);
 finally
   TempStream.Free;
 end;