Функция insert char to dynamic char array работает не во всех случаях

program insertChar;
 
type
  AnsiCharArray = array of AnsiChar;
var
  charArray1, charArray2: array of AnsiChar;
  simpleChar: AnsiChar;
 
  function charToDynCharArray(charr: AnsiChar; insertIndex: integer;
  var arr: AnsiCharArray): AnsiCharArray;
  var
    i, arrLength: integer;
  begin
    if insertIndex = -1 then
      insertIndex := Length(arr);
    // выясняем, на сколько увел массив если...
    if insertIndex > Length(arr) then
 
    begin
      // пытался прямо назначить значение длины = insertIndex+1, не добавляется значение
      // в insertIndex в массив, стал делать через фор, добавлять любые значения до insertIndex
      for i := Length(arr) to insertIndex do
      begin
        SetLength(arr, i + 1);
        // добавил переменную, чтобы просматривать длину.
        arrLength := Length(arr);
        // почему в массив не добавляется значение? В инсп. отладки его не видно.
        arr[i] := '1';
        if i = insertIndex then
          arr[i-1] := charr;
      end;
    end
    else
    begin
      SetLength(arr, Length(arr) + 1);
      for i := Length(arr) - 1 downto insertIndex + 1 do
        arr[i] := arr[i - 1];
      arr[insertIndex] := charr;
    end;
    charToDynCharArray := arr;
  end;
 
begin
  charArray2:='01';
  SetLength(charArray2,101);
  // почему в инспекторе отладки в charArray2 только 4 элемента?
  charArray2[100]:='1';
  simpleChar := '1';
  charArray1 := '02';
  charArray1 := charToDynCharArray(simpleChar, 1, charArray1);
  simpleChar := '0';
  charArray1 := charToDynCharArray(simpleChar, 0, charArray1);
  simpleChar := '3';
  charArray1 := charToDynCharArray(simpleChar, -1, charArray1);
  simpleChar := '6';
  charArray1 := charToDynCharArray(simpleChar, 6, charArray1);
  ReadLn();
end.

var
  charArray1, charArray2: array of AnsiChar;
  simpleChar: AnsiChar;
begin
  charArray2 := '01';
  SetLength(charArray2, 101);
  // почему в инспекторе отладки в charArray2 только 4 элемента?
  writeln(sizeof(charArray2),' ',length(charArray2));

type
  AnsiCharArr = array of AnsiChar;
 
procedure InsertChar(C: AnsiChar; Idx: Integer; var a: AnsiCharArr);
var i: Integer;
begin
  if Idx>=Length(a) then SetLength(a,Idx+1);
  for i:=Length(a)-1 downto Idx+1 do a[i]:=a[i-1];
  a[Idx]:=C;
end;
 
var
  a: AnsiCharArr;
begin
  InsertChar('*',100,a);
  WriteLn(a[100]='*');
end.