Ayuda para hacer un algoritmo de busqueda y comparacion

[Rockin]

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
                    //hacemos lo que queramos si son iguales los elementos
              end;

      end;
end;

Es una idea, no se como es la lista, si es una tabla, un Tlist, o lo que sea.

Saludos