teil suchen aber ganzen satz ersetzen [PLS Hilfe]

[0NyX]

Guten tag liebe DP User,

ich arbeite zur Zeit an einem eigl. kleinen tool für einen Freund.
Ich habe nun das meiste schon fertig, jedoch komme ich gerade nicht weiter.
Also bei dem "Tool" handelt es sich um einen kleinen Text-Editor.

Der Texteditor soll nun nach einer Stelle im text suchen (diese stelle sollte der nutzer selbst defienieren können) und dann soll aber der ganze Satz und nicht nur die eine gesuchte Stelle eretzt werden.
Leider habe ich keine Ahnung wie man so was macht
Über Hilfe würde ich mich echt freuen, vielen Dank im voraus!

Hier mein bisheriger Code:

Delphi-Quellcode:

unit text2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    MainMenu: TMainMenu;
    Datei1: TMenuItem;
    Aoeffnen: TMenuItem;
    Speichern1: TMenuItem;
    Schlieen1: TMenuItem;
    StatusBar: TStatusBar;
    RichEdit: TRichEdit;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    Neu1: TMenuItem;
    Ersetzen1: TMenuItem;
    Zeile7durchtest21: TMenuItem;
    RichEdit2: TRichEdit;
    BestimmtenSatzersetzen1: TMenuItem;
    Satzfindenundersetzen1: TMenuItem;
    Hier_wird_der_Text_angezeigt_welcher_zum_ersetzen_dient: TStaticText;
    search: TEdit;
    Suche: TLabel;
    procedure Schlieen1Click(Sender: TObject);
    procedure AoeffnenClick(Sender: TObject);
    procedure Speichern1Click(Sender: TObject);
    procedure Neu1Click(Sender: TObject);
    procedure Zeile7durchtest21Click(Sender: TObject);
    procedure BestimmtenSatzersetzen1Click(Sender: TObject);
    procedure neuestring1Click(Sender: TObject);
    procedure Satzfindenundersetzen1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Schlieen1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.AoeffnenClick(Sender: TObject);
begin
  If Opendialog.Execute then
  begin
    if FileExists(OpenDialog.Filename) then
    begin
      Richedit.Lines.LoadfromFile(OpenDialog.Filename);
    end;
  end;

end;

procedure TForm1.Speichern1Click(Sender: TObject);
begin
if SaveDialog.Execute then
      begin
      Richedit.Lines.SavetoFile(SaveDialog.Filename);
    end;
  end;


procedure TForm1.Neu1Click(Sender: TObject);
begin
Richedit.Lines.Clear;
end;

procedure TForm1.Zeile7durchtest21Click(Sender: TObject);
begin
  OpenDialog.Execute;
  Richedit2.Lines.LoadfromFile(OpenDialog.Filename);
  RichEdit.Lines.Strings[6]:= Richedit2.Lines.Text;
end;

procedure TForm1.BestimmtenSatzersetzen1Click(Sender: TObject);
begin
  OpenDialog.Execute;
  Richedit2.Lines.LoadfromFile(OpenDialog.Filename);
  RichEdit.Text := StringReplace(RichEdit.Text, 'Das Linzer Volksblatt berichtete Anfang Jänner 1894:', Richedit2.Lines.Text, [rfReplaceAll, rfIgnoreCase]);
end;

procedure TForm1.neuestring1Click(Sender: TObject);
begin

end;

procedure TForm1.Satzfindenundersetzen1Click(Sender: TObject);
begin

end;

end.