Como testar se um diretório está vazio (não contém arquivos ou subdiretórios)

function diretorioVazio(diretorio: string): Boolean;
var
  search_rec: TSearchRec;
  i: Integer;
begin
  Result := False;
  FindFirst(IncludeTrailingPathDelimiter(diretorio) +
    '*', faAnyFile, search_rec);

  for i := 1 to 2 do
    if (search_rec.Name = '.') or (search_rec.Name = '..') then
      Result := FindNext(search_rec) <> 0;

  FindClose(search_rec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio: string;
begin
  // diretório que queremos testar
  diretorio := 'C:\arquivo de codigos';

  // vamos testar se o diretório está vazio
  if diretorioVazio(diretorio) then
    ShowMessage('O diretório está vazio.')
  else
    ShowMessage('O diretório NÃO está vazio.')
end;