type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
  
function StringReplace(const S, OldPattern, NewPattern: string; 
           Flags: TReplaceFlags): string;