为什么这个数组出错了？
var
myarray:array[1..16] of string;
myarray2:array[1..16] of Timage;
i:integer;
q:integer;

……

myarray[1]:='ico1';
myarray[2]:='ico2';
myarray[3]:='ico3';
myarray[4]:='ico2';
myarray[5]:='ico3';
myarray[6]:='ico4';
myarray[7]:='ico3';
myarray[8]:='ico4';
myarray[9]:='ico5';
myarray[10]:='ico4';
myarray[11]:='ico5';
myarray[12]:='ico6';
myarray[13]:='ico5';
myarray[14]:='ico6';
myarray[15]:='ico7';
myarray[16]:='ico6';

for q:=1 to 16 do
begin
for i:=1 to 16 do
begin
Ico:=TIcon.Create;
j:=Loadini('link',myarray[i], '');
Ico.Handle:=GetFileIcon(pchar(j),False);
myarray2[q].Picture.Icon.Assign(Ico);
Ico.Free;
end;
end;

[解决办法]
迷糊。

for i:=1 to 16 do
begin
Ico:=TIcon.Create;
j:=Loadini( 'link ',myarray[i], ' ');
Ico.Handle:=GetFileIcon(pchar(j),False);
myarray2[i].Picture.Icon.Assign(Ico);
Ico.Free;
end;