For i:=1 to Memo1.lines.count Do
    Begin
       k:=pos('@mail.ru',Memo1.Lines[i])
       If k<>0 then Memo2.Lines.add(Memo1.lines[i]);
    End.