TBMStringList

pt 

DoCompareText