新手请教怎么截取字符串的问题。。。

对delphi不太熟。。
我有一个文本文件是csv格式的不过就当成txt的没关系。。
这个文本好多行数据，但是每行都一样的
我想知道怎么循环读然后截取字符串呢？字段时这样的
PCTaaa,PCTaaa.wad
PCTbbb,PCTbbb.wad
PCTccc,PCTccc.wad
...
...
很多行这样子
该怎么做呢...
希望谁给我指导下...谢谢...