[wladimir_object]

Код:

var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1   do
 begin
  if memo2.Lines.IndexOf(memo1.Lines[i])>-1 then 
     memo3.Lines.Add(memo1.Lines[i]);
 end;
end;