[Dima170792]

Сообщение от 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; 

Огромное человеческое спасибо!!!