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