var
  before, after : string;
  options       : TReplaceFlags;

begin
  // Попытка заменить все вхождения A на THE
  before := 'This is a way to live A big life';

  // Установка опций замены всех вхождений независимо от регистра
  options := [rfReplaceAll, rfIgnoreCase];

  // Теперь заменяем 'a' или 'A' на 'THE' везде
  after  := StringReplace(before, ' a ', ' THE ', options);

  // Показ до и после
  ShowMessage('Before = '+before);
  ShowMessage('After  = '+after);
end;