How to implement content copying from Memo1 to Memo2?

Question

Delphi

There are two Memos on the form. You need to copy the content from memo1 to memo2, starting at the specified line. The specified string is written to edit. I understand that this function can be implemented through a loop. But in delphi I'm weak, so I turn to you for help. If it is not difficult for someone, I will be glad to provide коду.
All the best!
Example:

Answer 1

And how to copy the content from memo1 to memo2 with this condition?

var i: integer;
begin
  Memo2.Clear;
  for i := Memo1.Lines.IndexOf( Edit1.Text ) to ( Memo1.Lines.Count - 1 )
    do Memo2.Lines.Add( Memo1.Lines[i] );
end;