TStringList时存放A01@#@[2005-01-01]这样类型的字串如何查询

[xiamen3611]

var
sl: TStringList;
begin
sl := TStringList.Create;
sl.add('A01@#@[2005-01-01]');
sl.add('A01@#@[2005-01-02]');
sl.add('A01@#@[2005-01-03]');
sl.add('A01@#@[2005-01-04]');
sl.add('B01@#@[2005-01-01]');
sl.add('B01@#@[2005-01-02]');
end;
现在只能根据A01,B01之类字串查找，而日期是不确定的，请问TStringList能实现吗？还是要用其它方法.
我的目的：
1。依顺序找到A01出现的位置，并把取出该字串中的日期。
2。删除被取出的值。
3。接着找B01。

[xiamen3611]

咋没人顶上下呢