Como borrar los archivos de la carpeta Windows\Temp\

[JoAnCa]

Hola a todos
estoy haciendo un sencillo soft para borrar el contenido de la carpeta Windows\Temp\ pero sucede que cuando hay un archivo en uso, da error y aborta la operacion
Lo que necesito es la forma de que si esto sucede, ignore el archivo en uso y continue borrando el siguiente, sin abortar la operación

el codigo que uso para esto es un aporte de escafandra en DA

Código Delphi [-]
uses ShellApi;
 
function XDelete(Path: String): integer;
var
  FS: SHFILEOPSTRUCT;
begin
  ZeroMemory(@FS, sizeof(SHFILEOPSTRUCT));
  FS.wFunc:= FO_DELETE;
  FS.pFrom:= PCHAR(Path + #0);
  FS.fFlags:= FOF_NOCONFIRMATION;
  Result:= SHFileOperation(FS);
end;

Código Delphi [-]
XDelete('C:\Windows\Temp\*.*');