UnicodeString KeyPhrase = "the str your looking for";
for (int i = 0; i < DBMemo1->Lines->Count ; i++)
{
UnicodeString LineToCheck = DBMemo1->Lines->Strings[i];
if( LineToCheck.Pos( KeyPhrase ) )
        {
    DBMemo1->Lines->Delete(i);
            }
}