[fpc-pascal] EOLESysError calling CreateOLEObject

[Marco van de Voort]

> DEFINE_SHLGUID(CLSID_ShellLink,         0x00021401L, 0, 0); //
> 00021401-0000-0000-C000-000000000046
> 
> while the iid starts with 000214EE

Fixed, added some more clsid constants in the process r11434