function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
function DasDurchDiesErsetzen: string; var aText : string; begin aText := 'Das ist ein Test. Dieser soll die Funktion erläutern!'; result := StringReplace(aText, 'Das', 'Dies', rfReplaceAll,rfIgnoreCase); end;