Кусок CtlC.ocf и процедуры для работы с безопасным массивом:
$OLEAUT32.dll	 ->SafeArrayAccessData, SafeArrayAllocData, SafeArrayAllocDescriptor, SafeArrayUnaccessData, SysAllocString, SysFreeString, SysStringLen, VariantClear <-