delphi遇到新问题，Cardinal是编码类型。我需要多个

冥界3大法王

例如：
procedure TForm7.Button3Click(Sender: TObject);
var
  a1: Cardinal;
begin
  a1 := 65001;
  RichViewEdit1.SaveText('c:\Hello1.txt', 0, a1);   
                                         //这里有三个参数: 参数1是一个文件名，参数2是-符号的宽度（整型），参数3是编码
注：65001是utf-8
end;


问题来了1个a1不够用。。我需要定义多个咋办？有简单方法么？

冥界3大法王

嗯，我只能format一下，是吧？

Endurance

var
    a:array[1..10] of cardinal;

for i:=1 to 10 do begin
    do(a[i]);
end;