Здравствуйте, dikma, Вы писали:

GS>>Если массив вариантов, то

D>>> IntArray: array[0..9] of OleVariant;

GS>>и этот массив тоже должен быть массив вариантов.

D>>> Result := VarArrayCreate([0, SizeOf(IntArray) — 1], varByte);
D> ^^^^^^^ этот массив?
D>уточните пожалуйста какой.
GS>>...
D>>> Move(IntArray, PData^, SizeOf(IntArray));

Ты создаешь массив Result (VarArray, что SAFEARRAY, полагаю), определяешь его как массив varByte. Далее ты берешь масив OleVariant (обычный) и бинарно копируешь его в секцию данных массива Result. Типы должны совпадать.