Frage zum Replacedialog

[daniel8520]

Was ich mit Replacedialog meinte wisste ihr ja sicherlich!
Und wie der so in etwas aussieht auch.
Nun mein Prob:

Hab den folgenden Code aus der Delphi-Hilfe kopiert

Delphi-Quellcode:

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

var
  SelPos: Integer;
begin
  with TReplaceDialog(Sender) do
  begin
  { Globale Suche mit Groß-/Kleinunterscheidung nach FindText in Memo1 }
    SelPos := Pos(FindText, Memo1.Lines.Text);
    if SelPos > 0 then
    begin
      Memo1.SelStart := SelPos - 1;
      Memo1.SelLength := Length(FindText);
      { Markierten Text durch ReplaceText ersetzen }
      Memo1.SelText := ReplaceText;
    end

    else MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'), mtError, [mbOk], 0);
  end;

end;

Der funkt auch eigentlich ganz gut, ABER beim klick auf "Alles ersetzen", wird auch nur nur, wie bei beim klick auf "Ersetzen", der nächst gefunden String ersetzt!

Kann ich hier irgendwas veränder, ohne gleich eine ganze function zuverwenden. oder falls nicht, könnte mir jemand dabei helfen? Kenne mich nämlich mit function noch nicht so gut aus.

MfG
Daniel L.