[NCD]

На мой взгляд, можно сделать так:

procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
x:=0;
while x < 100 {<<<Ставишь количество строк, которые нужно склеить} do
begin
Memo2.Text := Memo2.Text + Memo1.Lines[x];
x:=x+1;
end;
end;