Pesquisa memo1 para memo2

[Gabrielllll]

Bom dia,

bom estou com um probleminha porém estava testando varios códigos e o mesmo de sempre pesquisa com edit1 no memo...

porém eu quero o seguinte se caso vocês poderem me ajudar, vou tentar explicar rsrsrs

tenho memo1 e nele contém o seguinte texto :

Scriptbrasil1

Scriptbrasil2

Scriptbrasil3

Scriptbrasil4

Scriptbrasil5

FLUMINENSE

e no memo2 tenho o seguinte texto :

teste

teste2

teste3

FLUMINENSE

teste4

teste5

o seguinte vamo supor que no memo 1 tenha "FLUMINENSE" e no memo 2 também se caso no memo1 tiver fluminense ele ira pesquisar no memo2 para ve se tem fluminense também.

se caso ele achou ele da como "achou" vamo supor..

bom acho que e isso obrigado e aguardo.

Editado Dezembro 7, 2010 por Gabrielllll

[Jhonas]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
   for i := 0 to memo1.Lines.Count-1 do
      for j := 0 to memo2.Lines.Count-1 do
         if memo1.Lines.Strings[i] =
            memo2.Lines.Strings[j] then
            showmessage('Achei a palavra : '+ memo1.Lines.Strings[i]);

end;

abraço