TBMStringList
pt
DoCompareText