delphi for循环输出。。结果不对。

procedure TForm1.Button3Click(Sender: TObject);
var
int,i,i1,i2,i3,i4,i5,i6,i7 :string;
qq:integer;
begin
i1:='永恒之塔\Effects';
i2:='永恒之塔\Objects\pc';
i3:='永恒之塔\Objects\monster';
i4:='永恒之塔\Objects\npc\shugofemale';
i5:='永恒之塔\Objects\npc\skill_object';
i6:='永恒之塔\Objects\npc\pet';
i7:='永恒之塔\Objects\npc\Ride';
 
for qq:=1 to 7 do
begin
 showmessage('i'+inttostr(qq)) ;
end;

这个不是应该输出我在上面所制定的结果嘛？
为什么会输出i1,i2,i3,i4,i5,i6.而不是上面我所制定的
[解决办法]
showmessage里面的内容跟i1,i2,...半毛钱关系都没有; 前者是字符串，后者是变量

自己封装一个类吧,比如像IndexOf(),Strings[]这样的用法
[解决办法]
使用数组...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Array[ 1..7 ] Of   string;
  qq:integer;
begin
  i[1]:='永恒之塔\Effects';
  i[2]:='永恒之塔\Objects\pc';
  i[3]:='永恒之塔\Objects\monster';
  i[4]:='永恒之塔\Objects\npc\shugofemale';
  i[5]:='永恒之塔\Objects\npc\skill_object';
  i[6]:='永恒之塔\Objects\npc\pet';
  i[7]:='永恒之塔\Objects\npc\Ride';

for qq:=1 to 7 do
begin
 showmessage(i[qq]) ;
end;

end;