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

Question

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。