anchor.diff:            {$ELSE}
                Result := '';
             {$ENDIF}
  -	  tkDynArray:
  -		DynArrayToVariant(Result, Pointer(GetOrdProp(Instance, PropInfo)), PropInfo^.PropType^);
  +          tkDynArray:
  +                DynArrayToVariant(Result, Pointer(GetOrdProp(Instance, PropInfo)), PropInfo^.PropType^);
       else
         raise Exception.Create('Invalid Property Type: ' + PropInfo.PropType^^.Name);
       end;
  
positive.code:     procedure CheckStreamMatch(aStream1,aStream2 : TStream;Msg : String);
      procedure CheckFileExists(aFileName : String);
      procedure Setup; override;
      // Call this routine with GREAT Caution!!!!
      function DelTree(Dir : String) : Boolean;
  
  
negative.code: 
  
  { TabTestCase }
  
  procedure TabTestCase.CheckDirMatch(aDir1, aDir2: string;
    IgnoreMissingFiles: Boolean);
  var
   d1,d2 : TStringList;
   FS1,FS2 : TFileStream;
   I : Integer;
  begin
   d1 := TStringList.Create;
   d1.Sorted := true;
   d2 := TStringList.Create;
   d2.Sorted := True;
   try
     FilesInDirectory(aDir1,d1);
     FilesInDirectory(aDir2,d2);
     Check(not ((not IgnoreMissingFiles) and (d1.count <> d2.count)),'Number of files in Directories do not match');
     For I := 0 to d1.count -1 do
      begin
        if d2.IndexOf(d1.Strings[I]) = -1 then
         begin
           Check(IgnoreMissingFiles,d1.Strings[I] + ' is Missing in Directory');
         end
        else
         begin
           FS1 := TFileStream.Create(IncludeTrailingBackSlash(aDir1) + ExtractFileName(d1.Strings[I]),fmOpenRead);
           FS2 := TFileStream.Create(IncludeTrailingBackSlash(aDir2) + ExtractFileName(d1.Strings[I]),fmOpenRead);
           try
             CheckStreamMatch(FS1,FS2,d1.Strings[I] + ' does not match');
           finally
             FS1.Free;
             FS2.Free;
           end;
         end;
      end;
   finally
     d1.free;
     d2.free;
   end;
  end;
  
  procedure TabTestCase.CheckFileExists(aFileName: String);
  begin
  