analizador de espectro

[gaston260]

Buen dia , tengo un codigo con el que en un hilo anterior me ayudaron , en realidad me escrivieron el procedure que es este

procedure TfrmMain.BufferFinished(var Msg: TMessage); var
hdr: PWaveHdr;
i: integer;
P: PByte;
B: Byte;
begin
hdr:= PWaveHdr(Msg.LParam);
with hdr^ do
begin
P:= PByte(lpData);
B:= 0;
for i:= 1 to dwBytesRecorded do
begin
if P^ > B then
B:=P^;
inc(P);
end;
ProgressBar1.Position:= B;
dec(B,128);
ProgressBar1.Position:= B;
end;
if waveInPrepareHeader(Device,hdr,sizeof(TWAVEHDR))<>MMSYSERR_NOERROR then
begin
CloseWaveDevice;
exit;
end;
if waveInAddBuffer(Device,hdr,sizeof(TWAVEHDR))<>MMSYSERR_NOERROR then
begin
CloseWaveDevice;
exit;

end;
end;

como se ve estoy trabajando con un solo progress , mi pregunta es ¿ como puedo trabajar con varios progress y a cada uno asignarle un rango de frecuencia distinto ? tal cual el winamp o el reproductor de windows media , no pretendo que me escrivan el codigo si no que me indiquen en donde puedo conseguir informacion .

Muchas gracias por dedicarme un espacio en su tiempo !!