function ClearDirectory(aDirectory : String) : Boolean;
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(aDirectory + '*.*', faAnyFile, SR);
  while I = 0 do
  begin
    if (SR.Attr and faDirectory) <> faDirectory then
    begin
      if not DeleteFile(PChar(aDirectory + SR.Name)) then
      begin
        Result := False;
        Exit;
      end;
    end;
 
    I := FindNext(SR);
  end;
 
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ClearDirectory('D:\teste\') then
    ShowMessage('Diretório limpo com sucesso')
  else
    ShowMessage('Não foi possível limpar o Diretório !');
end;