File-Splitter

[hummer]

So jetzt hab ich wieder ein Problem. Ich hab eine Procedur, mit der ich eine Datei in 2 gleich große Dateien splitten will.

Code:

f = Datei, die ich splitten will
f1 = 1. Hälfte
f2 = 2. Hälfte

Das hab ich jetzt mit BlockRead und BlockWrite gekößt. Ich lese zuerst die 1, Hälfte aus und speicher die in eine Datei ab und dann die 2. Hälfte. Jetzt weiß ich aber nicht was ich als weitere Parrameter für BlockRead und BlockWrite angeben muss. Irgendwie brauche ich ja noch einen Buffer. In der Online Hilfe hab ich da nicht richtig durchgeblickt. Hier mal mein Code

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var   f,f1,f2 : file; s,s1,s2 : string; g : longint;
begin
  //Datei öffnen
  OpenDialog1.Execute;
  s := OpenDialog1.FileName;
  if FileExists(s) then
  begin
    AssignFile(f,s);
    g := FileSize(f);
    //1.Datei
    AssignFile(f1,s + '01');
    Rewrite(f1);
    BlockRead(f,????,????);
    BlockWrite(f1,????,????);
    //in der Datei vorspringen
    Seek(f,g div 2);
    //2.Datei
    AssignFile(f2,s + '02');
    Rewrite(f2);
    BlockRead(f,????,?????);
    BlockWrite(f1,????,????);
    CloseFile(f);
    CloseFile(f1);
    CloseFile(f2);
  end;
end;

So wäre für Hilfe sehr dankbar.