Использование Microsoft ScriptControl (статья)

Code:

function TVCLProxy.SetVCLProperty(PropInfo: PPropInfo;

Argument: TVariantArg): HResult;

var

I, J, K, CommaPos: Integer;

GoodToken: Boolean;

S, S1: String;

DT: TDateTime;

ST: TSystemTime;

IP: IQueryPersistent;

Data, TypeData: PTypeData;

TypeInfo: PTypeInfo;

begin

Result := S_OK;

case PropInfo^.PropType^.Kind of

Code:

   tkChar, tkString, tkLString, tkWChar, tkWString:

     begin

       // Проверяем тип параметра

       ValidType(Argument, VT_BSTR, TRUE);

       // И устанавливаем свойство

       SetStrProp(FOwner, PropInfo, Argument.bstrVal);

     end;

Code:

   tkInteger: 

     begin

       // Проверяем тип свойства на TCursor, TColor

       // если он совпадает и передано символьное значение

       // пытаемся получить его идентификатор

       if (CompareText(PropInfo^.PropType^.Name, 'TCURSOR') = 0) and

          (Argument.vt = VT_BSTR) then begin

         if not IdentToCursor(Argument.bstrVal, I) then begin

           Result := DISP_E_BADVARTYPE;

           Exit;

         end;

       end else

       if (CompareText(PropInfo^.PropType^.Name, 'TCOLOR') = 0) and

         (Argument.vt = VT_BSTR) then begin

         if not IdentToColor(Argument.bstrVal, I) then begin

           Result := DISP_E_BADVARTYPE;

           Exit;

         end;

       end else

         // Просто цифра

         I := IntValue(Argument);

       // Устанавливаем свойство

       SetOrdProp(FOwner, PropInfo, I);

     end;