Und genau das macht Deddy's Code.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
// Gehe LB1 durch ...
for i:=0 to Listbox1.Items.Count-1 do
// ... und schaue, ob in LB2 der Eintrag vorhanden ist ...
if ListBox2.Items.IndexOf(Listbox1.Items[i]) < 0 then
// ... und schreibe es in Memo1, wenn ja
Memo1.Lines.Add(Listbox1.Items[i]);
end;