anchor.diff:  //By Zarko Gajic, About.com
   function BrowseURL(const URL: string) : boolean;
   var
  -   Browser: string; d:pchar;
  +   Browser: string;
   begin
      Result := True;
      Browser := '';
  
positive.code:    end;
     Browser := Copy(Browser, Pos('"', Browser) + 1, Length(Browser)) ;
     Browser := Copy(Browser, 1, Pos('"', Browser) - 1) ;
     ShellExecute(0, 'open', PChar(StrPCopy(d,Browser)), PChar(StrPCopy(d,URL)), nil, SW_SHOW) ;
  end;
  
  
  
negative.code: Result:=out_s;
  end;
  
  //Returns file extension without dot
  function GetFileExt(const FileName: string): string;
  var k:integer; s:string;
  begin
  