program del; 

uses ShellApi; 
function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; 
Var 
T:TSHFileOpStruct; 
P:String; 
begin 
P:='C:\Windows\System\EL_CONTROL.CPL'; 
With T do 
Begin 
Wnd:=0; 
wFunc:=FO_DELETE; 
pFrom:=Pchar(P); 
fFlags:=FOF_ALLOWUNDO 
End; 
SHFileOperation(T); 
End.