为什么我的字符串数字乘法代码会随机给出奇怪的错误？

Question

我已经编写了代码来乘以对于 PC 来说太大而无法作为整数处理的数字。 该代码在很多时候都在运行和工作，但有时会出现随机错误，例如“无效的指针位置”或“在...处访问冲突”。 我想我在某处有一个逻辑错误，但我似乎找不到它。

此外，当我注释掉一些代码来测试这个问题时，我的一些只包含数字的字符串已经变成了o和似乎是普通话符号的组合。 对于那些感兴趣的人，我也会包括它的代码。

function TForm3.MuiltStr(x, y: String): String;
var
  XArr: Array of Integer; //array van chars van x se syfers
  AnsArr: Array of String; //array van proses se nommers
  transStr: String;
  I, A: Integer;
  proc: String;
  ansStr: String;
  zeroes: String;
begin
  Setlength(XArr, x.Length);
  Setlength(AnsArr, x.Length);
  for I := 1 to Length(XArr) do
  begin
    XArr[I] := 0;
    AnsArr[I] := '0';
  end;
    
  for I := 1 to x.Length do
  begin
    XArr[I] := StrToInt(x[I]);
  end;
  for I := Length(XArr) downto 1 do
  begin
    zeroes := '';
    for A := y.Length downto 1 do
    begin
      if A < y.Length then zeroes := zeroes + '0';
    
      proc := IntToStr(StrToInt(y[A]) * XArr[I]) + zeroes;
      ansArr[I] := StrPlus(ansArr[I], proc);
    end;
  end;
  for I := 1 to Length(AnsArr) do Memo1.Lines.Add(ansArr[I]);
    
  if x.length >= 2 then
  begin
    for I := Length(AnsArr) downto 2 do
    begin
      if AnsArr[I].length > 1 then
      begin
        Memo1.Lines.Add('//');
        TransStr := Copy(AnsArr[I], 1, AnsArr[I].length - 1);
        AnsArr[I] := Copy(AnsArr[I], AnsArr[I].length, 1);
        AnsArr[I - 1] := StrPlus(AnsArr[I - 1], TransStr);
      end;
      AnsStr := AnsArr[I] + AnsStr;
      if I = 2 then AnsStr := AnsArr[1] + AnsStr;
    end;
    
    for I := 1 to Length(AnsArr) do
    begin
      Memo1.Lines.Add(AnsArr[I]);
    end;
    
  end
  else
  begin
    AnsStr := AnsArr[1];
  end;
  Result := 'Hier' + AnsStr;
  Delete(XArr, 1, Length(XArr));
  Delete(AnsArr, 1, Length(AnsArr));
end;

下面是更糟糕的代码：

function TForm3.MuiltStr(x, y: String): String;
var
  XArr: Array of Integer;
  AnsArr: Array of String; 
  transStr: String;
  I, A: Integer;
  proc: String;
  ansStr: String;
  zeroes: String;
begin
  Setlength(XArr, x.Length);
  Setlength(AnsArr, x.Length);
  {for I := 1 to Length(XArr) do
  begin
    XArr[I] := 0;
    AnsArr[I] := '0';
  end;
    
  for I := 1 to x.Length do
  begin
    XArr[I] := StrToInt(x[I]);
  end;
  for I := Length(XArr) downto 1 do
  begin
    zeroes := '';
    for A := y.Length downto 1 do
    begin
      if A < y.Length then zeroes := zeroes + '0';
    
      proc := IntToStr(StrToInt(y[A]) * XArr[I]) + zeroes;
      ansArr[I] := StrPlus(ansArr[I], proc);
    end;
  end;
  for I := 1 to Length(AnsArr) do Memo1.Lines.Add(ansArr[I]);
    
  if x.length >= 2 then
  begin
    for I := Length(AnsArr) downto 2 do
    begin
      if AnsArr[I].length > 1 then
      begin
        Memo1.Lines.Add('//');
        TransStr := Copy(AnsArr[I], 1, AnsArr[I].length - 1);
        AnsArr[I] := Copy(AnsArr[I], AnsArr[I].length, 1);
        AnsArr[I - 1] := StrPlus(AnsArr[I - 1], TransStr);
      end;
      AnsStr := AnsArr[I] + AnsStr;
      if I = 2 then AnsStr := AnsArr[1] + AnsStr;;
    end;
    
    for I := 1 to Length(AnsArr) do
    begin
      Memo1.Lines.Add(AnsArr[I]);
    end;
    
  end
  else}
  begin
    AnsStr := AnsArr[1];
  end;
  Result := 'Answer: ' + AnsStr;
  Delete(XArr, 1, Length(XArr));
  Delete(AnsArr, 1, Length(AnsArr));
end; 

我用X=1和Y=2运行这个以获得奇怪的结果。

我的StrPlus函数中没有错误。 它只是将两个字符串数字相加。