Кто-то пытался работать с CommonDialogControl.Color?

[RedFox]

Коллеги, добрый день.

Кто-то пытался работать с CommonDialogControl.Color?
Показать его получается без проблем. А вот как получить заветный выбранный цвет у меня не получается..
Кто может подсказать?

[RedFox]

Вопрос закрыт.

Код можно получить так конвертиров OLE_COLOR в Variant (integer):
Variables:

VariantVal : Variant
Script: Automation 'Microsoft Script Control 1.0'.ScriptControl"
ColorDialog: OCX 'Microsoft Common Dialog Control, version 6.0'"

Код:

CREATE(Script);
Script.Language := 'VBScript';
VariantVal := Script.*evаl*(ColorDialog.Color);
CLEAR(Script);