关于combobox与memo 的一段小程序问题

combobox1 list editor 里填的是单项分别为A B C D……的字母，我想获得当前下拉框里的选项，然后 memo里出现对应的数据，如
选W,则memo里显示
W
X X
Y Y Y
Z Z Z Z

程序如下，但是 运行会提示 当前选项不为 integer 
意思是说combobox里每一项是整型数据？？？
那如何获取当前选项的string数据？
本人是初学者，好多函数和其它不甚了解，希望大家帮忙指点，谢谢！
------------------------------------------------------------------------
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i,j,n,k:integer;
  aa:array[1..1000] of char;

begin
  k:=1;
  n:=ord('z')-strtoint(combobox1.Items[combobox1.ItemIndex])+1;
  for i:=1 to n do
  begin
  for j:=1 to i do
  begin
  aa[k]:=char(strtoint(combobox1.Items[combobox1.ItemIndex])+i-1);
  Inc(k);
  aa[k]:=' ';
  Inc(k);
  end;
  aa[k]:=#13;
  Inc(k);
  end;
  Memo1.Text:=copy(aa,Low(aa),k);
end;

这样符合你要求吗？
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i,j,n,k:integer;
  aa:string;
begin
  k:=1;
  n:=ord('z')-ord(combobox1.Items[combobox1.ItemIndex][1])+1;
  for i:=1 to n do
  begin
  for j:=1 to i do
  begin
  aa:=aa+char(ord(combobox1.Items[combobox1.ItemIndex][1])+i-1);
  aa:=aa+' ';
  end;
  aa :=aa+sLineBreak;
  end;
  Memo1.Text:=aa;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i,j,n,k:integer;
  aa:string;
begin
  k:=1;
  n:=ord('Z')-ord(combobox1.Items[combobox1.ItemIndex][1])+1;//看你的意思这里的Z要大写了
  for i:=1 to n do
  begin
  for j:=1 to i do
  begin
  aa:=aa+char(ord(combobox1.Items[combobox1.ItemIndex][1])+i-1);
  aa:=aa+' ';
  end;
  aa :=aa+sLineBreak;
  end;
  Memo1.Text:=aa;
end;