en este caso sera la version en Delphi 7 como siempre
uses
SysUtils;
Function removeZoneID(const sFileName:string):boolean;
begin
Result:=DeleteFile(sFileName+':Zone.Identifier');
end;
begin
Writeln(removeZoneID('C:\Users\1\Downloads\Ejectuable.exe'));
Readln;
end.