在空字典Delphi 10.4上迭代时出现问题

var
  dict: TDictionary<string, Integer>;
  pair: TPair<string, Integer>;
begin
  dict := TDictionary<string, Integer>.Create;
  
  // 添加一些键值对到字典中
  dict.Add('key1', 1);
  dict.Add('key2', 2);
  
  // 判断字典是否为空
  if dict.Count > 0 then
  begin
    // 迭代字典中的键值对
    for pair in dict do
    begin
      // 访问键值对的键和值
      ShowMessage('Key: ' + pair.Key + ', Value: ' + IntToStr(pair.Value));
    end;
  end
  else
  begin
    ShowMessage('字典为空');
  end;
  
  dict.Free;
end;