Solucionado
Buscando, buscando he adoptado este código:
Código Delphi
[-]procedure TF_Inici.ToolButton8Click(Sender: TObject);
var SearchRec: TSearchRec;
begin
if MDIChildCOUNT > 0 then
begin
ShowMessage('Hi han finestres obertes, tanca-les totes abans de sortir');
Abort;
end
else
begin
if FindFirst('C:\Gestio_Arbitral_1.0\Temp\*.*', faAnyFile, SearchRec) = 0 then
repeat
Deletefile('C:\Gestio_Arbitral_1.0\Temp\'+SearchRec.name);
until (FindNext(SearchRec) <> 0);
FindClose(SearchRec);
Close;
end;
end;
Gracias a todos
Josep