loops - DELPHI 2 行目を 1 行目のメモに移動

Question

Memo1 の 1 行目を Memo2 に転送し、Memo1 の残りの行を上に移動する必要があります。

期待される結果は次のとおりです。