waveOutOpen

I'm having troubles with passing parameters to waveOutOpen... I don't know
how to send procedure address as a parameter.
Here is an example:

my_procedure(parameters as in waveOutProc function);
begin
        ...
end;

waveOutOpen(handle, id, @my_procedure, 0, CALLBACK_FUNCTION);

I don't know how to make it work... anybody else?
--
---------------------------------------------------------------------
|   Issie Software Creations                        Is...@usa.net   |
|                   WATCH OUT!!! FALLING OBJECTS!                   |
|                          .oooO   Oooo.                            |
|   bba...@barok.foi.hr    (   )   (   )   bruba...@jagor.srce.hr   |
---------------------------|  (-----)  |-----------------------------
                            \_)     (_/
When  you're born, you suck your mother's tit. When you're older, you
suck your girlfriend's tit. When you're married, you suck your wife's
tit. That's all what it is. Life sucks!