Dicas Delphi - Deletando arquivos de um diretório utilizando caracter curinga '*'

procedure TForm1.SpeedButton1.Click(Sender: TObject);
var
SearchRec: TSearchRec;
Result: Integer;
begin

Result:=FindFirst('c:\Temp\*.*', faAnyFile, SearchRec);

while result=0 do
begin
DeleteFile('c:\Temp\'+SearchRec.Name);
Result:=FindNext(SearchRec);
end;
end;