TZipmaster & dynamische Zuweisung von Ereignissen

[Moony]

Hallo zusammen,

ich bin dabei ein Zip file zu entpacken. Das funktioniert alles soweit, aber wenn ich die Ereignisse während der Laufzeit zuweisen will gibts probleme:

Ich habe in meiner Fortschrittsform folgende Funktionen deklariert:

Delphi-Quellcode:

type
  TfmMsg = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Group: TGroupBox;
    Progress: TGauge;
    GroupBox2: TGroupBox;
    sBtnAbort: TSpeedButton;
    procedure sBtnAbortClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure ShowProgress(State: String);
    procedure UpdateProgress(Steps, State: String; MaxValue: integer);
    procedure OnProgress(Sender : TObject; ProgrType: ProgressType; Filename: String; FileSize: Integer);
  end;

var fmMsg: TfmMsg;

Irgendwo im Hauptsource weise ich das OnProgress-Ereignis dem Zipmaster zu, da ich diesen dynamisch erstelle.

  Zipmaster.OnProgress := fmMsg.OnProgress; An dieser stelle bekomme ich beim Kompillieren die Meldung:

Zitat:

Inkompatible Typen: 'Int64' und 'Integer'

Was ist da jetzt falsch dran?

Gruß, Moony