Delphi Layered Service Provider (LSP) Code?



I'm looking for a partial (preferably complete) learning example for an LSP written in Delphi. If anyone knows where I can locate some example code dealing with a Layered Service Provider (or using the Service Provider Interface) it'd be much appreciated. The only real example I found for a complete LSP was written in C++ for Win2K back in May of 1999 here: http://www.microsoft.com/msj/0599/LayeredService/LayeredService.aspx

Regards,
Brock
.