[
  odl,
  uuid(1EF13171-6593-42BF-9BCF-CE2E2A036624),
  version(1.0),
  oleautomation,
  custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, "TestLib.ITest")    
]
interface ITest : IUnknown {
  HRESULT _stdcall GetData([out, retval] SAFEARRAY(VARIANT)* pRetVal);
};

[
  odl,
  uuid(98CB1A74-6895-444B-8CC8-394C23543B2D),
  version(1.0),
  dual,
  oleautomation,
  custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, "TestLib.ITestUser")    
]
interface ITestUser : IDispatch {
  [id(0x60020000)]
  HRESULT Do([in] ITest* Test);
};

ITest = interface(IUnknown)
  ['{1EF13171-6593-42BF-9BCF-CE2E2A036624}']
  function GetData(out pRetVal: PSafeArray): HResult; stdcall;
end;

ITestUser = interface(IDispatch)
  ['{98CB1A74-6895-444B-8CC8-394C23543B2D}']
  procedure Do_(const Test: ITest); safecall;
end;

function TTest.Variant1: PSafeArray;
var
  Bounds: array [0..0] of TSafeArrayBound;
  i: Integer;
  b: TBytes;
  procedure PutElement(Value: Variant);
  begin
    OleCheck(SafeArrayPutElement(Result, i, Value));
    Inc(i);
  end;
begin
  Bounds[0].lLbound:=0;
  Bounds[0].cElements:=4;
  Result:=SafeArrayCreate(varVariant, 1, Bounds);
  OleCheck(SafeArrayLock(Result));
  PutElement(123);
  PutElement(WideString('Мама мыла раму'));
  PutElement(Now);
  SetLength(b, 2);
  b[0]:=32;
  b[1]:=255;
  PutElement(b);
  OleCheck(SafeArrayUnlock(Result));
end;

function TTest.Variant2: PSafeArray;
var
  i: Integer;
  b: TBytes;
  Arr: Variant;
  procedure PutElement(Value: Variant);
  begin
    Arr[i]:=Value;
    Inc(i);
  end;
begin
  Arr:=VarArrayCreate([0, 4], varVariant);
  VarArrayLock(Arr);
  PutElement(123);
  PutElement(WideString('Мама мыла раму'));
  PutElement(Now);
  SetLength(b, 2);
  b[0]:=32;
  b[1]:=255;
  PutElement(b);
  VarArrayUnlock(Arr);
  Result:=PSafeArray(TVarData(Arr).VArray);
end;