Eine Datei mit Zufallsdaten überschreiben

[Koller]

Delphi-Quellcode:

procedure TForm1.OverwriteFile(Filename: string; number: integer;);
var stream: TFilestream; i,zahl: integer;
begin
  stream := TFilestream.Create(filename,fmOpenWrite);
  randomize;
  for i := 1 to number do
  begin
     zahl := random(1);
     stream.Write(zahl,SizeOf(zahl))
  end;
  FreeAndNil(stream);
end;

Habe für ein Programm diesen Algorithmus gschrieben. Er soll eine Datei unleserlich machen. Wenn man eine Datei unter Windows löscht, kann man sie ja normalerweise leicht wiederherstellen. Diese Prozedur soll so eine Datei mit Zufallsdaten überschreiben.
Was haltet ihr von ihr? Optimierungen? Ist das so Quatsch?