pues dependiendo el componente que uses, se me ocurre algo asi:
Código Delphi
[-]
for i:= 1 to num_elementos_lista1 do
begin
for j:= 1 to num_elementos_lista2 do
begin
IF elemento_lista1[i] = elemento_lista2[j] then
begin
end;
end;
end;
Es una idea, no se como es la lista, si es una tabla, un Tlist, o lo que sea.
Saludos