一个简单的文本程序问题！！！！！！！！！！

Question

var
   mys:TStringStream;
   myt:TParser;
   oldPOS:Integer;
begin
   mys:=TStringStream.Create('"7-5320-3075-X","语文( 下册 )//成人中等学校高中课本",,"成人中等学校高中课本",11.5,3,01-6-1 0:00:00,,,"G.3004","7-5320","上海教育(上海世纪出版集团)","平装","大32开"');
   showmessage(mys.DataString);
   myt:=TParser.Create(mys);
   oldPOS:=0;
   while myt.Token<>toEOF do
   begin
       case myt.Token of
       ',':
         begin
             mys.Position:=oldPOS;
             l.Items.add(mys.ReadString(myt.SourcePos-oldPOS));
             oldPOS:=myt.SourcePos+1;
         end;
       end;
       myt.NextToken;
   end;
   myt.Free;
   mys.Free;
end;