Делфи 7 спектор звука

Как в реальном времени получить спекр звука с микрофона и отобразить его в прогресс баре?
Если можно самый простой примерчик или исходник спасибо.