1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var fsFrom, fsTo: TFilestream;
begin
  fsFrom:= TFileStream.Create('c:\Datei1.txt', fmOpenRead);
  fsTo:= TFileStream.Create('C:\Datei2.txt', fmOpenWrite);
  fsFrom.Position:= 299; //position auf byte 300 setzen (da byte 1 = position 0);
  // fsTo.Position:= 799 // position in fsTo auf byte 800 setzen
  fsTo.CopyFrom(fsFrom, 300); //300 byte nach fsTo kopieren
  fsFrom.Free;
  fsTo.Free;
end;