[NumLock]

самое, имхо, простое решение это добавить в проект объект автоматизации: File - New - Other вкладка ActiveX, элемент Automation Object.

вводишь имя.

вызываешь библиотеку типов View - Type Library. добавляешь свойство интерфейсу.

жмешь кнопку "Refresh".
Delphi сама сгенерирует функцию. останется только ее реализовать:

Код:

1 2 3

begin   Result:=$1248; // тут свой код естественно end;

после запуска программы объект зарегистрируется.

ну а дальше сообщишь вебкодеру имя объекта = ExeName.CoClassName