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

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

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

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

D> Result := VarArrayCreate([0, SizeOf(IntArray) — 1], varByte);
...
D> Move(IntArray, PData^, SizeOf(IntArray));