Необязательный параметр - массив

[chertovich]

Если нет массива, то в качестве фактического параметра указывай пустой массив, то есть если это динамический массив SetLength(Arr, 0);

[Sibedir]

Непосредственно записать значение массива поумолчанию, действительно не удастся. Но можно и по другому.

Вариант 1: (как я уже и писал)

type
  TArr = array of Integer;

procedure MyProc1 (AArr: TArr); overload;
begin
  if AArr = nil then
    ShowMessage ('Пусто')
  else
    ShowMessage (IntToStr (Length (AArr)));
end;

procedure MyProc1; overload;
var
  AArr: TArr;
begin
  SetLength (AArr, 2);
  AArr[0] := 1;
  AArr[1] := 2;
  MyProc1 (AArr);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyProc1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyProc1 (nil);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  a: TArr;
begin
  SetLength (a, 3);
  a[0] := 1;
  a[1] := 2;
  a[2] := 3;
  MyProc1 (a);
end;

Вариант 2: (почти что как procedure defArray(a: array of integer = [1, 2]);)

type
  TArr = array of Integer;

procedure MyProc2 (AArr: TArr = nil);
begin
  if AArr = nil then
    ShowMessage ('Пусто')
  else
    ShowMessage (IntToStr (Length (AArr)));
end;

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
  MyProc2;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  MyProc2 (nil);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  a: TArr;
begin
  SetLength (a, 3);
  a[0] := 1;
  a[1] := 2;
  a[2] := 3;
  MyProc2 (a);
end;

Тут результат работы двух вариантов немного разный. Всё зависит от конкретной задачи и от того, что должно быть, если параметр не указан.