самое, имхо, простое решение это добавить в проект объект автоматизации: File - New - Other вкладка ActiveX, элемент Automation Object.
вводишь имя.
вызываешь библиотеку типов View - Type Library. добавляешь свойство интерфейсу.
жмешь кнопку "Refresh".
Delphi сама сгенерирует функцию. останется только ее реализовать:
Код:
begin
Result:=$1248; // тут свой код естественно
end;
после запуска программы объект зарегистрируется.
ну а дальше сообщишь вебкодеру имя объекта = ExeName.CoClassName