StringList ile iligili Sorun?

[delphiibo]

Selam arkadaşlar.
Ben stringList ile ilgili sorunum var.
Mesala.Bir yazı yazacağım ve o yazıyı sonraki hafızaya alıp tekrar yazacak.
Örneğin aşağıdaki yazıları memo1'e yazdım ve programı çalıştırdım. Şimdi Button tıklandığında 'Bu sayfa='den sonra 'Başlıklar' ile 'bitti' arasındakiler memo2'ye yazılacak.Nasıl yapacağım? Lütfen yardım edin.
////////////////////////
Memo1.lines.text:=
Başlıklar (burdan)
1-haberler
2-tarih
3-yeniler
bitti (buraya kadar).
Memo2.lines.text:=
Bu sayfa=Başlıklar (buraya başlıklar ile bitti arasındakiler yazılıp memo2'ye eklenecek).
/////////////////////////////////////////
Lütfen yardım edin.

Hepinize iyi çalışmalar.

[vatos]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
   memo2.Lines.Add('Bu Sayfa= ') ;
   for i:=1 to memo1.Lines.Count-2 do
   memo2.Lines.Add(memo1.Lines[i])
end;

ilk satır ve son satırı aktarmaz.