[Страдалецъ]

Т.е есть список имен программ имена которых надо предать анафеме и есть список запущеных процессов. Надо получить третий список в котором содержаться процессы преданные анафеме.
Ну тогда можно так:

Код:

procedure TForm5.Button2Click(Sender: TObject);
Var List1,List2: TStringList;
    Index: Integer;
    i: Integer;
begin
 List1 := TStringList.Create;
 List1.Text := Memo1.Text;
 List1.Sort;
 List2 := TStringList.Create;
 List2.LoadFromFile('C:\BedProcess.txt');
 for i := 0 to List2.Count - 1
 do if List1.Find(List2.Strings[i],Index)
    then ListBox1.AddItem(List2.Strings[i],nil);
end;