anchor.diff:      end;
       if SourcePosition<=SourceLength then begin
        case Source[SourcePosition] of
  -      '|',')':begin
  +      '|',')',#0:begin
          break;
         end;
        end;
  
positive.code:     if SourcePosition<=SourceLength then begin
       case Source[SourcePosition] of
        '|':begin
         if (rfMULTIMATCH in Flags) and (((SourcePosition+1)<=SourceLength) and (Source[SourcePosition+1]='|')) then begin
          break;
         end else begin
          inc(SourcePosition);
         end;
        end;
        ')':begin
         break;
        end;
       end;
  
negative.code:  finally
   end;
  
  end;
  
  constructor TFLRE.Create(const ARegularExpressions:array of ansistring;const AFlags:TFLREFlags=[]);
  var Index:longint;
      RegularExpressions:ansistring;
  begin
   RegularExpressions:='';
   for Index:=0 to length(ARegularExpressions)-1 do begin
    if Index>0 then begin
     RegularExpressions:=RegularExpressions+#0;
    end;
    RegularExpressions:=RegularExpressions+ARegularExpressions[Index];
   end;
   Create(RegularExpressions,(AFlags+[rfMULTIMATCH])-[rfDELIMITERS]);
  end;
  
  destructor TFLRE.Destroy;
  