[marto]

Wop!

Mezclando tu algoritmo con el de trucomanía...

Código Delphi [-]
function CuentaArchivos(path: AnsiString): Integer;
var
  srRes : TSearchRec;
  iFound : Integer;
begin
  //nos aseguramos que el path sea más o menos correcto
  if path[Length(path)] <> '\' then
    path := path +'\';
  //
  //Indicamos que queremos todos los archivos en la ruta
  //menos los directorios
  iFound := FindFirst(path+'*.*', faAnyFile-faDirectory, srRes);
  //inicializamos el contador
  Result := 0;
  //mientras haya archivos en el directorio
  while iFound = 0 do
  begin
   //si el archivo no es uno de los especiales (. y ..)
   //incrementeo el contador
   if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) and ( srRes.Name <> '' ) then
     Inc(Result);
   //paso al siguiente archivo
   iFound := FindNext(srRes);
  end;
  //cierro la busqueda
  FindClose( srRes );
end;

Si te fijas, he quitado la parte recursiva (que te podría servir si quieres contar los archivos que hay en subcarpetas) y, en lugar de añadir los nombre a una stringlist, los he contado