字符串提取 的函数和过程征解(100分)

请您写出一个注释清晰的函数或过程
把下列一个可变长度的字符串AIbB合元 1.0w0+0.124w1+0.126w2+0.125....w(n-1)+0.132w+0.124
分解为

A Ib
B 合元 1.0
w0 0.124
w1 0.125
w(n-1) 0.132
w 0.124
n是可变的 返回值只要上面列出的右边的数（Ib、合元 1.0、0.124等等），

var
s,str : string;
pos1,pos2,len,i,n : integer;
begin
n := 9;
s:= 'AIbB合元 1.0w0+0.124w1+0.126w2+0.125w3+0.127w4+0.128w5+0.132w6+0.124w7+0.133w8+0.322w9+0.888';
ListBox1.items.Add('A');
s := Copy(s,2,length(s)-1);
listBox1.items.Add('Ib');
s := Copy(s,3,length(s)-2);
listBox1.Items.add('B');
s := copy(s,2,length(s)-1);
listBox1.Items.Add('合元 1.0');
s := Copy(s,length('合元 1.0')+1,length(s)-length('合元 1.0'));
for i:= 1 to n do
begin
listBox1.items.Add('w'+inttostr(i-1));
pos1 := pos('+',s);
pos2 := pos('w'+inttostr(i)+'+',s);
str := copy(s,pos1+1,pos2-pos1-1);
listbox1.items.add(str);
s := copy(s,pos2,length(s)-pos2+1);
end;
listbox1.items.add('w'+inttostr);
str := copy(s,length('w'+inttostr+'+')+1,length(s));
listbox1.items.add(str);
end;

to peng_qs
这么快，先谢了！
可能是我没写清楚，对不起
我想要一个函数或过程，通过调用此函数或过程，将返回值
Ib
合元 1.0
0.124
0.125
0.132
...
...
....
0.124

放在一个Tstringlist变量中或者字符串数组中

如果你有问题需要大家帮忙的话就请谦虚地向大家请教，不要搞得好象要考大家似的，
100分很了不起吗？

to 教父
真的有‘要考大家似的’的意思吗？
从我心里决没这样的想法，你想多了。

to qwei:
教父同志可能今天心情不太好，请不要介意，他其实说的是你提问的方式不对，
请您写出一个注释清晰的函数或过程
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这一句改成:"请大虾们帮忙写一个注释清晰的函数或过程"不是更好吗？
前几天有个贴子叫"如何提问题(大至意思是这样，具体叫什么忘了,搜索一下)"说的很好，你可
以先看一下，这样就不会引起别人的误会了，你觉的呢？

wind2000的人情很练达啊
在下一向是很谦虚的，可能是一时性急，如有冒犯，多多包涵。
我已做出
只是觉得不够好，s:='AIbB合元1.0w0+0.124w1+0.126w2+0.123';
//i:=pos('w',s)
while length(s)>5 do
begin
str:=after('w',s)
s:=str;

end;
showmessage(str);

我将上传cell 和ClientServer Developer's Guide with Delphi ，聊表寸心

上传Delphi/Kylix Database Development source code 到资源社区

多人接受答案了。