Text ersetzen

[axmarq]

Hallo,

ich möchte gerne bestimmten Text, den ich aus einem Textfile lade ersetzen und in einem neuen Textfile speichern.
Dafür habe ich zwei Memofelder, 4 Buttons und folgenden Code eingefügt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:\Test.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.text:=StringReplace(Memo1.text,'RFU','RFU_CON',[rfReplaceAll, rfIgnoreCase]);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo2.Lines.SavetoFile('C:\Test2.txt');
end;

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

Wie kann ich nun verhindern, dass nicht der komplette übereinstimmende Text ersetzt wird.
Ich möchte zum Beipiel, dass in einer Zeile nur das erste Wort geprüft wird und dort ersetzt. Wenn das Wort an dritter Stelle vorkommt, möchte ich kein Ersetzen durchführen.

Hat jemand einen Tipp?

Danke und Gruß,
axmarq