anchor.diff:       end;
      end; { If File Found with FindFirst }
   end;
  +{$IFDEF WINZIPTESTS}
  +procedure TabTestCase.ExecuteAndWait(ExeName, Param: String;TimeOut : Integer);
  +var
  +  Spawn : TStSpawnApplication;
  +  WR    : TWaitResult;
  +begin
  +   // Make sure Application trying to execute is found
  +   CheckFileExists(ExeName);
  +   Spawn := TStSpawnApplication.Create(nil);
  +   try
  +     Spawn.FileName := ExeName;
  +     Spawn.RunParameters := Param;
  +     Spawn.NotifyWhenDone := True;
  +     Spawn.TimeOut := TimeOut;
  +     Spawn.OnSpawnError := SpawnErrorEvent;
  +     Spawn.OnCompleted := SpawnCompletedEvent;
  +     Spawn.OnTimeOut := SpawnTimeOutEvent;
  +     Spawn.Execute;
  +     WR := FSpawnComplete.WaitFor(1000);
  +     While WR <> wrSignaled do
  +       begin
  +          Application.ProcessMessages;
  +          Check(NOT (WR = wrAbandoned), 'Event has been Abandoonded');
  +          Check(NOT (WR = wrError),'Event has Errored out');
  +          WR := FSpawnComplete.WaitFor(1000);
  +       end;
  +   finally
  +      Spawn.Free;
  +   end;
  +end;
  +{$ENDIF}
   
   procedure TabTestCase.FilesInDirectory(const aDir: String;
     FileList: TStringList);
  
positive.code: 
  
  implementation
  
  
  { TabTestCase }
  
  
negative.code: begin
    inherited;
    FTestForm := TForm.Create(nil);
    IgnoreProp := TStringList.create;
  end;
  
  procedure TabCompTestCase.ShowForm;
  