[dr. F.I.N.]

Используйте IndexOf(), достаточно будет одного цикла.

Код:

...
  for i:= 0 to ListBox1.Items.Count - 1 do
    if ListBox2.Items.IndexOf(ListBox1.Items.Strings[i] > -1) then
      ListBox3.Ints.Add(ListBox1.Items.Strings[i]);
...