[fpc-pascal] support for using anactivex

[Ludo Brands]

Attached a small lazarus demo project that implements the EventSink unit. It
is based on the EventSink unit in the article and adapted for fpc.
The demo launches Msword and connects to the ApplicationEvents interface
{000209F7-0000-0000-C000-000000000046}. When you create a new document, or
change document, close word etc. in msword the app displays in a memo the
dispids received through the event sink. 

As you will notice, the dispinterface for the events interface just contains
the guid. No method prototypes are required.

Ludo   

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: eventsink.pas
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20110526/86c59b70/attachment.ksh>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: testeventsink.lpr
Type: application/octet-stream
Size: 389 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20110526/86c59b70/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: testeventsinkmain.lfm
Type: application/octet-stream
Size: 291 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20110526/86c59b70/attachment-0001.obj>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: testeventsinkmain.pas
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20110526/86c59b70/attachment-0001.ksh>