Erase - Стирает внешний файл с диска.
Объявление:
Procedure Erase(Var F);
Режим:
Windows, Real, Protected
Замечания:

Параметр F - файловая переменная любого файлового типа. Внешний файл, связанный с переменной F удаляется.

В режиме {$I-} функция IOResult вернет нуль, если операция была успешна, иначе она вернет отличный от нуля код ошибки.
Ограничения:

Никогда не используйте Erase на открытом файле!
Пример: view source

print
?01 { Пример программы для процедуры Erase }
02
03 Uses Dos, Crt;
04
05 Var F : File;
06 Ch : Char;
07
08 Begin
09 { Получаем имя файла из командной строки }
10 Assign(F, ParamStr(1));
11 {$I-} { Отключаем контроль ошибок ввода/вывода }
12 Reset(F);
13 {$I+} { Включаем контроль ошибок ввода/вывода }
14 If IOResult0 Then WriteLn('Не могу найти :', ParamStr(1))
15 Else
16 Begin
17 Close(F);
18 Write('Удалять ', ParamStr(1), ' (y/n) ?');
19 ReadLn(Ch);
20 If UpCase(Ch)='Y' Then Erase(F);
21 End;
22 End.