Localizar memo em outro memo

E ai pessoal beleza?, tenho esse código que faz busca em memo com edit, gostaria de uma ajuda para por exemplo...

Tenho 2 memo...

Memo 1

Texto :

TESTE AE AB AC AD AE AG TESTANDO

Memo 2

AK AG AT AP TESTE KP LK PK PD PG

/applications/core/interface/imageproxy/imageproxy.php?img=http://www.activedelphi.com.br/forum/templates/subSilver/images/icon_minipost.gif&key=d8f4d4dc296b558a277e65b1ba5fe66b23c4611d894a20fb7dbb225fe04c8cc4" alt="icon_minipost.gif" />Enviada: 14 Jan 2016 19:25 Assunto: Ajuda Localizar memo em outro memo /applications/core/interface/imageproxy/imageproxy.php?img=http://www.activedelphi.com.br/forum/templates/subSilver/images/lang_english/icon_quote.gif&key=c31c4acea8d8c2796f4eb125608e765d7454118ee5989ac0c09dc8659aa9d123" alt="icon_quote.gif" /> /applications/core/interface/imageproxy/imageproxy.php?img=http://www.activedelphi.com.br/forum/templates/subSilver/images/lang_english/icon_edit.gif&key=1c1d03b8afaf8bcd46f88fdb68d48cedc1d299dede6cf9741bb5cf69050632be" alt="icon_edit.gif" /> /applications/core/interface/imageproxy/imageproxy.php?img=http://www.activedelphi.com.br/forum/templates/subSilver/images/icon_delete.gif&key=68ddce6ecbd38d2a06b53cdc3a59a9e3da130b0e332b158546b76f94cd7bc92a" alt="icon_delete.gif" /> E ai pessoal beleza?, tenho esse código que faz busca em memo com edit, gostaria de uma ajuda para por exemplo...

Tenho 2 memo...

Memo 1

Texto :

Código: TESTE AE AB AC AD AE AG TESTANDO

Memo 2

Código:

AK AG AT AP TESTE KP LK PK PD PG

Veja que no Memo 1 e memo 2 tem texto igual q no caso e o Teste caso ele localize, ele mostra uma mensagem, o titulo diz tudo... localizar memo em outro memo... aguardo..

esse e o codigo que eu busco com edit

>
var

lista:TstringList;

posicao:integer;

begin

try

lista:=TstringList.Create;

lista.AddStrings(memo1.Lines);

posicao:=pos(edit1.Text,lista.Text);

if posicao > 0 Then

begin

 showmessage('palavra encontrada');

 end

else

showmessage('Aviso : Palavra ou Texto Não Localizado')

finally

lista.Free;

end;

aguardo ajuda!