35 Mal überschreiben

[HW764]

Ich habe diesen Code, der eine Datei 6 mal überschreibt.
Nun will ich, dass er diese Datei 35 Mal überschreibt.
Was muss ich ändern? (Beim Pfeil "Hier")

Delphi-Quellcode:

procedure EraseFile(Filename: string);
const
  Buffer = 1024;
  FillBuffer: array[0..5] of Integer = ($00, $FF, $00, $F0, $0F, $00); //<-- Hier
var
  arr: array[1..Buffer] of byte;
  f: file;
  i, j, n: integer; 
begin
  AssignFile(f, FileName);
  Reset(f, 1);
  n := FileSize(f);
  for j := 0 to 5 do
  begin 
    for i := 1 to n div Buffer do
    begin 
      BlockWrite(f, FillBuffer[j], Buffer);
    end; 
  end;
  CloseFile(f); 
  RenameFile(Filename, ExtractFilepath(Filename)+'$000000.tmp');
  DeleteFile(ExtractFilepath(Filename)+'$000000.tmp'); 
end;