только проверкой руками. Готового метода нет.
Код:
For I := ListBox1.Items.Count-1 DownTo 0 Do
If Pos(ListBox1.Items[i],Memo1.Lines.Text) = 0 Then
ListBox1.Items.Delete(I);
Это очень грубо. В иделале, надо весь текст из Memo разбить на слова и потом уже искать по этому списку. Вышеприведенный код НЕ удалит слово 'Вася' если оно в мемо выглядит как 'Васятка'. И удалит, если оно в мемо написано как 'вася'. Второй случай фиксится путем оборачивания обеих строк в условии if в AnsiUpperCase.