Stream und Datei

[Imagination]

Hallo,
ich möchte eine Datei in einen Stream laden (1) und die Mitte der Datei bis zu seinem Ende in einen anderen Stream kopieren (2). Dann den neuen Stream in eine neue Datei speichern(3).

(1)

Delphi-Quellcode:

var
  aStream: TMemoryStream;
  bStream: TMemoryStream;
begin

  aStream := TMemoryStream.Create;
  bStream := TMemoryStream.Create;
  aStream.LoadFromFile(Dateipfad);

(2) ?

(3)

Delphi-Quellcode:

  bStream.SaveToFile(neuer_dateipfad);
  aStream.Free;
  bStream.Free;

Wie lautet der Befehl für (2) oder hat jemand einen Ansatz?

Mit Stream.CopyFrom(..) wird der gesamte Stream kopiert und mit Stream.Seek usw hab ich den Befehl nicht verstanden