Checking if a folder is empty.

function IsDirectoryEmpty(const ADirectory: String): Boolean;
var
  searchRec: TSearchRec;
begin
   try

Result := (FindFirst(ADirectory+'\*.*', faAnyFile, searchRec) = 0) AND
  (FindNext(searchRec) = 0) AND
  (FindNext(searchRec) <> 0);

   finally
     FindClose(searchRec);
   end;
end;