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 !!