Remplacer des mots dans un String

procedure TForm1.Button1Click(Sender: TObject);
var
sNewText : string;
begin
// Remplace le premier "moules" par "palourdes"
sNewText := StringReplace('à la pêche aux moules moules moules','moules','palourdes',[rfIgnoreCase]);
ShowMessage(sNewText);

/// Remplace tous les "moules" par "palourdes"
sNewText := StringReplace('à la pêche aux moules moules moules','moules','palourdes',[rfReplaceAll,rfIgnoreCase]);
ShowMessage(sNewText);

// Supprimer tous les espaces dans le string
sNewText := StringReplace('Supprimer les espaces dans la phrase',' ','',[rfReplaceAll]);
ShowMessage(sNewText);
end;