var   a:variant;  
  begin  
                  a:=VarArrayCreate([0,2,0,2],varVariant);  
                  ShowMessage(inttostr(VarArrayDimCount(a)));  
                  VarArrayPut(a,'b',[1,1]);  
                  ShowMessage(String(VarArrayGet(a,[1,1])));  
  end;