RichEdit (selstart,sellength,findtext...)

[Headi]

Hi DPler,

Komme leider wieder Mal einfach nicht weiter.
Ich habe eine textdatei, diese lade ich in ein Richedit.
Dann durchsuche ich das Richedit mit Findtext.

Mein ziel ist, dass er nach {info}haahah{/info} sucht, die tags entfehrnt und nur
den text zwischen den Tags behält, den Rest soll er löschen.

Jetzt suchen, finden, und tags entfehrnen habe ich schon.
Nur bringe ich es nicht hin, das er mir den restlichen Text löscht...

So sieht mein Text bis jetzt aus:

Delphi-Quellcode:

with RichEdit1 do
  while FindText('{info}', 0, Length(RichEdit1.Text), [])<> -1 do
    begin
    SelStart  := FindText('{info}', 0, Length(RichEdit1.Text), []);
    SelLength  := FindText('{/info}', 0, Length(RichEdit1.Text), [])+7-Selstart;
    SelText := Copy(RichEdit1.Text,SelStart+7,SelLength-13);
    end;

kann mir einer helfen wie ich den ergänzen muss?

vielen dank schonmal!

mfg headi