Les dejo la traduccion de la funcion que publico blau para quitar el cartelito cuando te descargar un archivo de internet les dejo el link original Quitar ZoneId
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.

¡Gracias por portarlo!