pt 

DoCompareText (TBMStringList)