[4kusNick]

Код:

function IsDirEmpty(sDirPath: String): Boolean;
var
	fs: TSearchRec;
begin

	Result := True;
	sDirPath:= IncludeTrailingPathDelimiter(sDirPath);
	if FindFirst(sDirPath+ '*.*', faAnyFile, fs) = 0 then
	repeat
		if (fs.Name <> '.') and (fs.Name <> '..') then
		begin
			Result := False;
			FindClose(fs);
			Exit;
		end;
	until
		FindNext(fs) <> 0;
	FindClose(fs);

end;

Пример использованя:

if IsDirEmpty('c:\dir') then MessageBox(0,PChar('Папка "c:\dir" пуста!!'),'',MB_ICONINFORMATION);

PS
Писал на скорую руку, мог ошибиться...