pt
DoCompareText
(
TBMStringList
)