variant array of boolean

[Rainer Wolff]

Über die Zuweisung eines arrays of boolean an eine Variant bin ich gestolpert. VarArrayCreate funktioniert, array of integer zuweisen ebenfalls, aber die letzte Zeile crasht.

Code:

procedure TForm15.FormCreate(Sender: TObject);
var
  ab: array of boolean;
  aw: array of integer;
  va: variant;
begin
  Va := VarArrayCreate([0,9], varBoolean);

  SetLength(aw,2);
  va:=aw;

  SetLength(ab,2);
  va:=ab;
end;