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

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

GY>> DDSCSArray := SafeArrayCreate(VT_ARRAY,1,DDSCSArrayBound);

GY>>SafeArrayПараметры = Новый COMSafeArray("VT_VARIANT", 1); // один параметр у GetVesion

Vi2>Вот в этом и разница.

В общем...

var
  DDSCSArray: Variant;
.
.
.
.
.
begin
 DDSCSArray := VarArrayCreate([0, 1], VT_VARIANT);
.
.
.
.
end.

Вот и все решение.