Klasse um eine funktion erweitern - Vererbung

[mumu]

Hallo leute!

ich möchte die Klasse TJvZlibMultiple so erweitern, damit ich während des packvorgangs auch abbrechen kann. in der Function AddFile müsste ich da eine überprüfung einbauen, ob eine variable isBreakPressed auf true ist, um dann das packen abzubrechen.

wie muss ich da vorgehen?
hier ein ausschnitt der ursprünglichen klasse

Delphi-Quellcode:

TJvZlibMultiple = class(TJvComponent)
  private
    ...
  protected
    procedure AddFile(FileName, Directory, FilePath: string; DestStream: TStream);
    procedure DoProgress(Position, Total: Integer); virtual;
  public
    constructor Create(AOwner: TComponent); override;

    function CompressFiles(Files: TStrings): TStream; overload;
    ...
  published
    ...
  end;

und hier meine vererbte

Delphi-Quellcode:

type
  TJvZlibMultipleWithBreak = class(TJvZlibMultiple)
    private
      isBreakPressed: boolean;
    public
      constructor Create(AOwner: TComponent); override;
    protected
      procedure AddFile(FileName, Directory, FilePath: string; DestStream: TStream); override;
    end;

bei AddFile beschwert er sich: "Eine statische Methode kann nicht überschrieben werden"
was mach ich falsch, bzw. besser gesagt bin ich da aufn richtigen weg, oder wie geh ich das an?

danke schonmal