[Alegun]

Добавьте на форму в новом проекте три мемо и кнопку, кликните на нея, вот обработчик

Код:

procedure TForm1.Button1.Click(Sender:TObject);
var
 sl1, sl2: TStrings;
 i, j: integer;
begin
 Memo3.Clear;
 Sl1:= TStringList.Create;
 Sl2:= TStringList.Create;
 sl1.DelimetedText:= Memo1.Text;
 sl2.DelimetedText:= Mo2.Text;
 for i:= 0 to sl1.Count -1 do
  for j := 0 to sl2.Count -1 do
   if sl1[i] = sl2[j] then Memo3.Lines.Add(sl2[j]);
 Sl1.Free;
 Sl2.free;
End;