Memo/Richedit durchsuchen & kopieren

[Counter909]

die position kann ich dann ja so erhalten:

Delphi-Quellcode:

for Index := Memo2.Lines.Count - 1 downto 0 do
      begin
        Position := Pos(form1.Edit1.Text, Memo2.Lines[Index]);
        if Position > 0 then showmessage('+inttostr(position)+''
      end;

so dann hab ich ja mein Feld wo ich eingeben kann, wieviele Zeilen kopiert werden sollen, also

n:=edit1.text
logischerweise um kann ich dann doch "position+n", sodass ich die endzeile habe, bis wo kopiert werden soll, aber

copy(memo2.Lines.Text,?,??);} aber hier werden ja nur nur die "Pos" werte verlangt und keine zeile