Delphi-Help

procedure TForm1.Button1Click(Sender: TObject);

 type

   T2DIntArray = array of array of Integer;

 var

   DynArray: T2DIntArray;

   V: Variant;

   i, k: Integer;

 begin

   V := VarArrayCreate([0, 1, 0, 1], varInteger);

   V[0, 0] := 00;

   V[0, 1] := 01;

   V[1, 0] := 10;

   V[1, 1] := 11;

   DynArrayFromVariant(Pointer(Dynarray), V, TypeInfo(T2DIntArray));

   for i := 0 to High(Dynarray) do

     for k := 0 to High(Dynarray[i]) do

       memo1.Lines.add(IntToStr(DynArray[i, k]));

 end;