如何将字符串中第二个字符相同的归类取出，并在ListBox中显示(100分)

0C 12 18 01 03 2A 01 19 36 34 0A 15 10 0D 31 06 11 0C 02 19 1F 36 2F 08 05
如何将如上的字符串中第二个字符相同的归类取出，并在ListBox中显示，比如01和31第二位相同则归为一类，ListBox中显示的结果如下
0C 0C
12 02
18 08
01 01 31 11
03
2A 0A
19 19
36 06 36
34
15 05
10
0D
1F 2F
小妹很菜，望高手赐教，谢谢！！

procedure TForm1.Button1Click(Sender: TObject);
var
strlist:TStringList;
i,j:integer;
tmp,tmpstr:string;
begin
strlist:=TStringList.Create;
strlist.CommaText:='0C 12 18 01 03 2A 01 19 36 34 0A 15 10 0D 31 06 11 0C 02 19 1F 36 2F 08 05';
for i:=0 to strlist.Count-2 do
begin
tmpstr:=strlist;
tmp:=copy(strlist,2,1);
for j:=i+1 to strlist.Count-1 do
begin
if copy(strlist[j],2,1)=tmp then
begin
tmpstr:=tmpstr+' '+strlist[j];
strlist[j]:='';
end;
end;
if trim(tmpstr)<>'' then listbox1.Items.Add(tmpstr);
end;
end;

帮你顶！
那位有时间，帮你做作

xwhope
如果不行，再来找我，我不是不看了，这都搞不定了，别混了，转行吧