anchor.diff:    Source: PChar;
     Dest: PChar;
     SourceEnd: PChar;
  -  CharLen: integer;
     SourceCopied: PChar;
   
     // Copies from SourceStart till Source to Dest and updates Dest
  
positive.code:       SourceCopied := Source;
      end
      else
        Inc(Source, CharLen);
    end;
    CopyPart;
    SetLength(Result, Dest - PChar(Result));
  
negative.code:   SourceEnd := Source + SourceLen;
    while Source<SourceEnd do
    begin
      if (Source^='\') then
      begin
        CopyPart;
        inc(Source);
  