Memo Darstellung verändern

[bloody.brain]

Hi,

vorneweg ich bin nicht gerade der profi programmierer.
Nun zum Problem :

Ich hab ein Programm das Daten aus einer Schnittstelle bekommt und diese in einem Memo darstellt.
Nun würde ich gerne die Darstellung der Daten verändern können. Konkret ich hab ein edit Feld in dem ich z.B "DD" eingebe und dann wird im Memo überall wo das DD vorkommt einmal enter gemacht dahinter.

Mein derzeitiger Code :

Delphi-Quellcode:

begin
  e:=0;
  s:=Memo1.Lines.gettext;
  if edit2.Text <> '' then
  begin
    while(length(s) > length(edit2.Text)) do
    begin
      i:=pos(edit2.Text,s);
      Memo1.SelStart:=i+e;
      Memo1.Lines.Add(#13);
      delete(s,0,i);
      e:=i;
    end;
  end;
end;

Irgendwie bleibt er in der while Schleife hängen und verkleinert den Inhalt von s nicht.
Gibt es vielleicht noch eine einfachere Möglichkeit soetwas zu realisieren ?
Wäre nett wenn mir jemand helfen könnte.

gruss bloody.brain