Delphi - Leer micrófono

Hola

Intento armar un pequeño programa donde un punto se mueva al compás de los sonidos ingresados por microfono (a modo de audioritmico), existe algún componente para esto? o cual sería la manera de leer los datos del micrófono?

desde ya, muchísimas gracias