Условие при выполнениия поиска и замены текста в Memo

Memo1.Lines.LoadFromFile('test.txt');
 Memo1.Lines.Text = StringReplace(' Text1 ', ' Text2 ', [rfReplaceAll, rfIgnoreCase]);

...
  if AnsiCompareText(' Text1 ', Memo1.Lines.Text) = 0 then
...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('test.txt');
  if pos(' Text1 ', Memo1.Lines.Text) > 0 then
  begin
    Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, ' Text1 ', ' Text2 ', [rfReplaceAll, rfIgnoreCase]);
    // âûïîëíèòü äåéñòâèå
  end else
    // íè÷åãî íå äåëàòü
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('test.txt');
if StringReplace(Memo1.Lines.Text, ' Text1 ', ' Text2 ', [rfReplaceAll, rfIgnoreCase]) <> Memo1.Lines.Text then
begin
  showmessage('сейчас произойдёт замена');
Memo1.Lines.Text:= StringReplace(Memo1.Lines.Text, ' Text1 ', ' Text2 ', [rfReplaceAll, rfIgnoreCase]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('test.txt');
  if pos(ansiuppercase(' Text1 '), ansiuppercase(Memo1.Lines.Text)) > 0 then
  begin
    Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, ' Text1 ', ' Text2 ', [rfReplaceAll, rfIgnoreCase]);
    // выполнить действие
  end else
    // ничего не делать
end;