如何截取固定值并显示多个????

在Memo.Text中是这样的.
NAME ZHANXIAOKUN LISHAN LINWEI
DEFV DVFKNK FCDVVV
SERF FDO 12/P1
SERF FDO 13/P2
SERF FDO 15/P3
提交后怎么样能得到 12 13 15 ZHANXIAOKUN LISHAN LINWEI
S:=Memo.Text;
fa:=pos('SERF FDO',S)+8;
fd:=pos('/P',S)-fa;
de:=copy(S,fa,fd);
For i:=1 to 什么东东 do
StringGrid1.Cells[1,i]:=de;
end;
SERF FDO上面的值是没有固定几行的..怎么样搜索SERF FDO在Memo中有几个..
for i := 0 to Memo1.Line.Count - 1 do
这样子行不通SERF FDO不一定在哪一行出现...
有没有其他方法..比如找到固定值SERF FDO共有几个再用FOR去做呢??