anchor.diff:        writeln( '* ', Tree.Name);
         writeln( '*******************************************************************************');
         for T in Tree do begin
  -         writeln( '   ', T.IpStr:18, T.Name);         
  +         writeln( '   ', T.IpStr:18, '   ', T.Name);         
         end;
         writeln();
         writeln();
  
positive.code: 
  
  // *************************************************************************
  // * Lookup() - Do a DNS forward or reverse DNS lookup depending on the 
  // *            contents of NameOrIp.
  // *************************************************************************
  
  function tDnsSimpleCache.ForwardLookup( Name: string): word32;
     begin
        TestTuple.Name:= Name;
        TestTuple.IpW32:= 0;
  
        
  
  
        result:= 0;
     end; // ForwardLookup()
  
  
  // *************************************************************************
  // * Lookup() - Do a DNS forward or reverse DNS lookup depending on the 
  // *            contents of NameOrIp.
  // *************************************************************************
  
  function tDnsSimpleCache.ReverseLookup( IpW32: word32): string;
     begin
        result:= 'A host name';
     end; // ReverseLookup()
  
  
  
negative.code:       ByNameNfTree.Name:=   'Unresolved DNS queries sorted by Host Name';
        ByIpAddrTree.Name:=   'Resolved DNS queries sorted by IP Address';
        ByIpAddrNfTree.Name:= 'Unesolved DNS queries sorted by IP Address';
  
        HostResolver:= tHostResolver.Create( nil);
     end; // Create()
  
  
  