StringReplace: Substituir uma parte do texto

var
  antes, depois : string;

begin
  // sustituir parte de um texto por outro.
  antes := 'Este é um texto exemplo!';

  depois  := StringReplace(antes, 'texto', 'texto de', [rfReplaceAll, rfIgnoreCase]);
  ShowMessage('Antes = '+antes);
  ShowMessage('Depois= '+depois);