SchredderProg (mit source) gesucht!

[HW764]

Ich kann es wiederherstellen!
PS:
Wenn ichs so mache wird dann 12 mal überschrieben?

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
const Buffer = 1024; 
var 
  arr: array [1..Buffer] of byte; 
  fi: file; 
  i, n: integer; 
begin 
  if OpenDialog1.Execute then 
  begin 
    AssignFile(fi, OpenDialog1.FileName); 
    Reset(fi, 1); 
    n := FileSize(fi); 
FillChar(arr, SizeOf(arr), #0); 
    FillChar(arr, SizeOf(arr), $00); 
        FillChar(arr, SizeOf(arr), $FF); 
            FillChar(arr, SizeOf(arr),  $00); 
                FillChar(arr, SizeOf(arr), $F0); 
                    FillChar(arr, SizeOf(arr), $0F); 
                        FillChar(arr, SizeOf(arr), $00); 
    FillChar(arr, SizeOf(arr), $00); 
        FillChar(arr, SizeOf(arr), $FF); 
            FillChar(arr, SizeOf(arr),  $00); 
                FillChar(arr, SizeOf(arr), $F0); 
                    FillChar(arr, SizeOf(arr), $0F); 
                        FillChar(arr, SizeOf(arr), $00); 


    for i := 1 to n div Buffer do 
    begin 
      BlockWrite(fi, arr, n mod Buffer); 
    end; 
    CloseFile(fi); 
    Erase(fi); 
  end; 
end;

Ich kann diesen Dateinamen vernichtung nicht eintragen, bin ja newbie , kann mir jemand helfen?