Как объявить тип эквивалентный другому типу?

type
  DoubleArr = array of double; //массив чисел Double

var
  A: array of Double;
  B: DoubleArr;  // type DoubleArr = array of Double;
begin
  SetLength(A, 1);
  A[0] := 0;
  B := A;  //Incompatible types: 'DoubleArr' and 'Dynamic array'
end;

type
  TMyArray = Array[0..1] of Integer;
 
var
  Form1: TForm1;
 
  A: Array[0..1] of Integer;
  B: TMyArray;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  A[0] := 10;
  A[1] := 20;
 
  B := TMyArray(A);
 
  ShowMessage(IntToStr(B[0]) + #13#10 + IntToStr(B[1]));
 
 
  // преобразовать массивы в "обратном направлении"
  B[0] := 100;
  B[1] := 200;
 
  TMyArray(A) := B;
 
  ShowMessage(IntToStr(A[0]) + #13#10 + IntToStr(A[1]));
end;

var 
A: Unit1.DoubleArr;
B: Unit2.DoubleArr;

var
  A: DoubleArr;
  B: array of double;
begin
  SetLength(B, 2);
  B[0] := 5;
  B[1] := 2;
  //B = [5,2]  A = nil
  A := DoubleArr(B);
  //B = [5,2]  A = [5,2]
  B[0] := 3;
  //B = [3,2]  A = [3,2]