字符数组给string赋值报stack overflow是什么问题？

var
  i, iSize: Integer;
  SourceId: Cardinal;
  szValue1: PChar;//array[0..MAX_PATH - 1] of Char;
  szValue2: PChar;//array[0..MAX_PATH - 1] of Char;
  sValue1, sValue2: string;
begin
  iSize := MAX_PATH * SizeOf(Char);
  szValue1 := GetMemory(MAX_PATH * SizeOf(Char));
  szValue2 := GetMemory(MAX_PATH * SizeOf(Char));
  try
    for i := 0 to AList.Count - 1 do
    begin
      ZeroMemory(szValue1, iSize);
      if SetupGetSourceFileLocation(AInf, nil, PChar(AList.Strings[i]),
        SourceId, szValue1, MAX_PATH, nil) then
      begin
//        sValue1 := szValue1;
        SetLength(sValue1, lstrlen(szValue1));
        CopyMemory(@sValue1[1], szValue1, lstrlen(szValue1) * SizeOf(Char));
        ZeroMemory(szValue2, iSize);
        if SetupGetSourceInfo(AInf, SourceId, SRCINFO_PATH, szValue2,
          MAX_PATH, nil) then
        begin
//          sValue2 := szValue2;   
          //第二次循环时，此处报错，不管是直接赋值还是用CopyMemory，字符szValue为Char数组和PChar都试过。
          SetLength(sValue2, lstrlen(szValue2));
          CopyMemory(@sValue2[1], szValue2, lstrlen(szValue2) * SizeOf(Char));
        end
        else
          szValue2 := '';
        OutputDebugString(PChar(sValue2 + '\' + sValue1));
      end;
    end;
  finally
    FreeMemory(szValue1);
    FreeMemory(szValue2);
  end;
end;