anchor.diff:  
    TabTestCase = class(TTestCase)
      protected
  +    {$IFDEF WINZIPTESTS}
  +      FSpawnComplete  : TSimpleEvent;
  +      procedure SpawnErrorEvent(Sender : TObject; Error : Word);
  +      procedure SpawnCompletedEvent(Sender : TObject);
  +      procedure SpawnTimeOutEvent(Sender : TObject);
  +      procedure ExecuteAndWait(ExeName,Param : String;TimeOut : Integer = 0); // Exception if failure
  +    {$ENDIF}
       function GetTestFileDir : string;
       function GetTestTempDir : string;
       function GetWindowsDir : string;
       procedure CheckStreamMatch(aStream1,aStream2 : TStream;Msg : String);
       procedure CheckFileExists(aFileName : String);
       procedure Setup; override;
  +    procedure Teardown; override;
       procedure FilesInDirectory(const aDir : String;FileList : TStringList);
       procedure CheckDirMatch(aDir1,aDir2 : string;IgnoreMissingFiles: Boolean = true);
       // Call this routine with GREAT Caution!!!!
  
positive.code: begin
    inherited;
    FTestForm := TForm.Create(nil);
    IgnoreProp := TStringList.create;  
  end;
  
  procedure TabCompTestCase.ShowForm;
  
negative.code: 
  
  implementation
  // Systool Unit change abdefine.inc if you don't have systools or don't want
  // to run winzip compatability tests
  {$IFDEF WINZIPTESTS} Uses stSpawn; {$ENDIF}
  
  { TabTestCase }
  
  