recording wav files with Delphi 5 Mediaplayer

Hello,
can anyone give me a working (that means tested with Delphi 5) source code
for recording a wav file with delphi 5 mediaplayer?
Recording worked fine with Delphi 4 but not with Delphi 5, not even with the
update pack).

Greetings,
Alex