Du musst nur die Dateinamen fnSource und fnTarget und die Anzahl der zu übergehenden Bytes in iPosition festlegen und los geht's:
Delphi-Quellcode:
fsSource := TFileStream.Create(fnSource, fmOpenRead);
fsTarget := TFileStream.Create(fnTarget, fmCreate);
// Diese 2 Zeilen meinte Luckie...
fsSource.Position := iPosition;
fsTarget.CopyFrom(fsSource, fsSource.Size - iPosition);
fsTarget.Free;
fsSource.Free;
Grüße vom marabu