Delphi to capture all currently playing audio to a wav file?

[paul_nicholls]

If necessary I can also use Freepascal as I have Lazarus using Freepascal 2.0.4.

So if anyone has some Freepascal code as well I could use this too :-)

cheers,
Paul