anchor.diff:           then
         begin
           OutputString := '<color blue><link ' + PARAM_LINK_URL + ' '
  -                        + FullDoubleQuote( ProgramLink )
  +                        + FullDoubleQuote( lURL )
                           + '>';
         end
         else
  
positive.code:       tmpProgramLinkParts := TStringList.Create;
        StrExtractStrings(tmpProgramLinkParts, ProgramLink, [' '], #0);
        ProgramPath := tmpProgramLinkParts[0];
        tmpProgramLinkParts.Destroy;
  
        ProgramFilename := ExtractFilename( ProgramPath );
  
negative.code:   ProgramLink: string;
    ProgramPath: string;
    ProgramFilename: string;
    lURL: string;
    ProgramInfo : TSerializableStringList;
    tmpProgramLinkParts : TStrings;
  
  