program pokus;

uses
  Variants;

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