dat-Datei in kleinere aufteilen + nach Seitenumbruch suchen

[Susanne]

irgendwie habe ich völlig ein Brett vor dem Kopf gerade.

Hier mal mein Funktion, er teilt meine Grosse Datei schon in kleiner auf, nur eben nicht an der richtigen Stelle. Vielleicht könnt ihr mir anhand dieses Codes ein wenig auf die Sprünge helfen, wäre echt toll.

Delphi-Quellcode:

function TForm1.DateiAufteilen(Dateiname: String; DateiSize: LongInt): Boolean;
var
   Teile: Integer;
   ats, ts: TFileStream;
   edg, s: String;
   x: Integer;
begin
   Teile:= Round(DateiSize/1000000);
   edg:= ExtractFileExt(Dateiname);
   // veränderter DateiName: ursprünglicher und _
   s:= ChangeFileExt(ExtractFileName(Dateiname),'')+ '_';
 
   ts:=TFileStream.create(Dateiname, fmopenread);
   if ts.Size > 1000000 then
      begin
         for x:=1 to Teile2 do
            begin
               ats:= TFileStream.create(DestinationDir + '\' + s + IntToStr(x)+ edg, fmcreate);
               
               //gucken, wann kommt der nächste Seitenumbruch (1)?
               
               ats.CopyFrom(ts, ts.size div Teile2);
            end;
      end;
     DeleteFile(Dateiname);
end;