hier das Stück Source. Die uses Anweisung musst Du aktualisieren. Ich habe die von Dir verwendete
Unit nicht gefunden und eine andere verwendet, welche die benötigten (von Dir verwendeten) Objecte enthielt. ObjectSID ist im übrigen z. Bsp. ein Array (VT_ARRAY or VT_UI1). Ich hänge nur die Unit1 dran. Alles andere ist wie in deinem Beispielprojekt.