procedure GetArr(Arr :array of integer);
begin
  ShowMessage(inttostr(length(Arr)));
end;

begin

  GetArr([null,nil]);

end.
