Exemplo p/zerar arquivos .tmp automaticamente pelo delphi

Ola Pessoal, estava necessitando dessa solução e acabei encontrando, aqui esta para todos que quizerem ou precisam usar sem ter que usar comandos .bat do dos:

Procedure TForm.FormShow(send : Tobject);
var
Sr : TSearchRec;
i : integer;
Begin
I := FindFirst (´ C:\Temp\~fr*.*´, faAnyFile, Sr);
while I = 0 do begin
IF not Deletefile (´ C:\Temp\´+ sr.name) then
I := findnext(sr);
end;
end;