anchor.diff:  
   implementation
   
  +{$IFNDEF FPC}
   uses
     AbUtils,
     AbPeDir,
  
positive.code:                           TAbVersionProperty );
    RegisterPropertyEditor( TypeInfo( string ), TAbCabKit, 'Version',
                            TAbVersionProperty );
  
    RegisterComponents( 'Abbrevia',
                        [ TAbZipBrowser,
  
negative.code:   DesignIntf,
    DesignEditors,
    SysUtils;
  {$ENDIF}
  
  procedure Register;
  begin
  {$IFNDEF FPC}
    RegisterPropertyEditor( TypeInfo( string ), TAbZipBrowser, 'FileName',
                            TAbFileNameProperty );
    RegisterPropertyEditor( TypeInfo( string ), TAbZipper, 'FileName',
  