[Delphi] I znowu stringi...

Muszę rozdzielić stringa na części, osobno zwykły tekst, osobno tagi HTMLa. Może wyjaśnię to na przykładzie. Mam stringa: 'pierwsza linijka{br}{font color="#ff0000"}druga linijka{/font}{br}itd...'. Teraz chciałbym to wrzucić do TStringlist, ew. tablicy w takiej formie:

pierwsza linijka
{br}
{font color="#ff0000"}
druga linijka
{/font}
{br}
itd...

Dla ułatwienia liczba tagów mogłaby być ograniczona, znajdowałyby się np. w tablicy. Czy ktoś potrafiłby to zrobić?---------------------------
Delphi 6

Pozdrówka

String do rozbicia siedzi w Memo1, a wynik w Memo2

var
S: String;
n: Integer;
begin
S:=Memo1.Lines.Text;
S:=AnsiReplaceStr(S,'{',#13+'{');
S:=AnsiReplaceStr(S,'}','}'+#13);
Memo2.Lines.Text:=S;
// Usuwanie pustych linijek bo sie takowe robia :)
for n:=Memo2.Lines.Count-1 downto 0 do
begin
if Memo2.Lines.Strings[n]='' then Memo2.Lines.Delete(n);
end;--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

Dzięki Sheitar, zasługujesz na duże {browar} :)---------------------------
Delphi 6

Pozdrówka