Delphi code to resolve Shell Links?

Has anybody run across handy-dandy code
to resolve shell links (shortcuts) in Delphi?

Thanks
Roger Ison