sammenligne memolinje

Hej

Jeg har tre memoer, hvori der står noget tekst på hver linje. Er der en let måde at finde ud af, om nogle af linjerne er ens?

Eksempelvis om både linje 7 i memo1, linje 19 i memo2 og linje 2 i memo3 alle sammen indeholder teksten "28". Lige nu gør jeg dette. Men det tager faktisk noget tid for computeren at køre:

for a:=0 to Memo1.Lines.Count-1 do
for b:=0 to Memo2.Lines.Count-1 do
for c:=0 to Memo3.Lines.Count-1 do
if (Memo1.Lines[a]=Memo2.Lines[b]) and (Memo2.Lines[b]=Memo3.Lines[c]) then
...