Zitat von
Ultimator:
Probier das doch mal so:
Delphi-Quellcode:
procedure TForm1.ShrederFile(Wieoft:Integer);
const Buffer = 1024;
var
arr: array [1..Buffer] of byte;
fi: file;
i, n, Z: integer;
begin
Z:=0
if OpenDialog1.Execute then
begin
repeat
AssignFile(fi, OpenDialog1.FileName);
Reset(fi, 1);
n := FileSize(fi);
FillChar(arr, SizeOf(arr), #0);
for i := 1 to n div Buffer do
begin
BlockWrite(fi, arr, n mod Buffer);
end;
CloseFile(fi);
Erase(fi);
end;
inc(Z);
until Z=Wieoft;
end;
Ich habs zwar jetzt nicht getestet, müsste aber gehen.
EINEGNINITIATIVE 
das eigeninitative könntest du ruhig so schreiben:
EIGENINITIATIVE