How to determine if a directory is empty

The following function is a simple way to determine if a directory is empty. The trick is to look for other files and directories than the two first found DOS directories '.' and '..'.

function IsDirEmpty (const ADirPath :string) :boolean;
var F :TSearchRec;
begin
  result := (FindFirst(ADirPath+'\*.*',faAnyFile,F) = 0) and
            (FindNext(F) = 0) and
            (FindNext(F) <> 0);
  FindClose(F);
end;