Delphi - Testando se o diretório está vazio

function DirectoryIsEmpty(Directory: string): Boolean;
var SR: TSearchRec;
          i: Integer;
begin
Result := False;
FindFirst(IncludeTrailingPathDelimiter(Directory) + '*', faAnyFile, SR);
  for i := 1 to 2 do
     if (SR.Name = '.') or (SR.Name = '..') then
         Result := FindNext(SR) <> 0;
         FindClose(SR);
end;

Para utilizá-la adicione um botão no formulário com o seguinte código:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if DirectoryIsEmpty('C:\test') then
      Caption := 'Este diretório está vazio!'
   else
     Caption := 'Este diretório não está vazio!';
end;