Interfacing to Visio using Lazarus/Free Pascal and Graham Wideman's code

Some time ago Graham Wideman created a demonstration of how to interface to Visio with Borland Delphi. Graham's code was designed for Visio 2000 and Borland Delphi has now moved on and there is also Lazarus and Free Pascal. I thought it might be useful/interesting to get Graham's code working in Lazarus. Most of the code converted automatically using Lazarus's built-in tools, however, I rebuilt the form from scratch.
The result works really well with Visio 2003/2007 and 2010. Waiting for Visio 2013 status.

With Graham's permission I've made the updated files available here:

Description File Version Date Size Download
Graham Wideman's GWVisioDemo updated for Lazarus 1.0 3rd September 2019 874kB Download now
This software works with Visio 2000/2002/2003/2007/2010/2013/2016 (32-bit versions only). To build the software from source code you need Lazarus/Free Pascal.