Удаление файла без возможности восстановления

[UKRtortik]

Нашел вот такую процедуру:

procedure ZeroFillDelete(FileName: string);
var
fs: TFileStream;
i:  integer;
procedure RandomWrite;
var b:  byte;
begin
repeat
b := Random(256); fs.Write(b, 1);
until fs.Position + 1 >= fs.Size;
end;
procedure WritePattern(pattern: byte);
const patt: array[5..31] of dword = ($555555, $AAAAAA, $924924, $492492,
$249249, 0, $111111, $222222, $333333, $444444, $555555, $666666,
$777777, $888888, $999999, $AAAAAA, $BBBBBB, $CCCCCC, $DDDDDD,
$EEEEEE, $FFFFFF, $924924, $492492, $249249, $6DB6DB, $B6DB6D, $DB6DB6);
var d: dword;
begin
d := patt[pattern] shl 8;
repeat fs.Write(d, 3); until fs.Position + 3 >= fs.Size;
end;
begin
if not FileExists(FileName) then Exit;
for i := 1 to 35 do
try
fs := TFileStream.Create(FileName, fmOpenWrite);
try
if (i < 5) or (i > 31) then RandomWrite
else WritePattern(i);
finally
fs.Free;
end;
except Exit; end;
DeleteFile(FileName);
end;

Но не пойму как правиль вызвать эту процедуру. Например мне нужно удалить файл который открыт в OpenDialog

[Пепел Феникса]

неужели у вас проблема вызвать процедуру с одним параметром?
у OpenDialog свойство FileName вернет имя выбраного файла.

[UKRtortik]

Сообщение от Пепел Феникса

неужели у вас проблема вызвать процедуру с одним параметром?
у OpenDialog свойство FileName вернет имя выбраного файла.

Ну вот не получается...

[Пепел Феникса]

Сообщение от UKRtortik

Ну вот не получается...

показывайте как пытались.
диалог показать можете?

[-=Virus=-]

begin
  ZeroFillDelete('C://projec.exe');
end;

[UKRtortik]

Сообщение от -=Virus=-

begin
  ZeroFillDelete('C://projec.exe');
end;

Unsatisfied forward or external declaration: 'TForm1.ZeroFillDelete'

[Пепел Феникса]

Сообщение от UKRtortik

Unsatisfied forward or external declaration: 'TForm1.ZeroFillDelete'

весь код кидайте тогда.
вы процедуру то в код добавили?

[UKRtortik]

Сообщение от Пепел Феникса

весь код кидайте тогда.
вы процедуру то в код добавили?

Это как???

type
TForm1 = class(TForm)
procedure ZeroFillDelete;
private
{ Private declarations }
public
{ Public declarations }
end;


???

[FaTaL]

Должно быть:

type
TForm1 = class(TForm)
procedure ZeroFillDelete(FileName: string);

[UKRtortik]

Сообщение от FaTaL

Должно быть:

type
TForm1 = class(TForm)
procedure ZeroFillDelete(FileName: string);

Благодарю. А хотелось бы поинтересоватся, данный способ действительно полностью удалет файл (Без возможности восстановить.)