Eigene Klasse mit eigener Fehlerbehandlung ausstatten

[Luckie]

So, jetzt wird es etwas komplizierter. In diesem Topic: OOP FileSplitter ging es darum einen FileSplitter schön in einer Klasse zu packen. Zur Übung habe ich mich mal dran gesetzt und habe da eine Klasse entworfen. Ging wunder bar, mit Event und allem.
So jetzt wollte ich die Klasse TFileSplitter mit einem eigenem Exception Handling, oder wie man es auch immer nennen will ausstatten. Dabei bin ich auf ein paar Probleme gestossen.
Erst mal die EFileSplitterError Klasse:

Delphi-Quellcode:

type
  TOnError = procedure(Sender: TObject; ECode: Integer; EMessage: string) of
    object;
  EFileSplitterError = class(Exception)
  private
    FOnError: TOnError;
  public
    property OnError: TOnError read FOnError write FOnError;
  end;

Jetzt die Einbindung in die TFileSplitter Klasse:

Delphi-Quellcode:

type
  TOnProgress = procedure(Sender: TObject; PartFilename: string; Total, Done:
    Int64) of object;
  TFileSplitter = class
  private
    FSError: EFileSplitterError;
    ...;  
  public
    ...;
    procedure Execute;
  public
    ...;
    property OnError: EFileSplitterError read FSError write FSError;
  end;

[..]

procedure TFileSplitter.Execute;
var
  ...;
resourcestring
  EEmptyFile = 'Keine Datei angegeben.';
  ...;
begin
  if FFilename = '' then
  begin
    if Assigned(OnError) then
    begin
      FSError.OnError(self, 1, EEmptyFile);
      exit;
    end
    else
      raise Exception.Create(EEmptyFile);
  end;
  [..]
end;

Idee: Ist kein Eventhandler zu gewiesen, soll eine ganz normale Exception geworfen werden. Das klappt aber nicht. Assigned(OnError) liefert immer True wie es aussieht.

Und im Programm:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...;
  private
    { Private-Deklarationen }
    ...;    
    procedure SplitError(Sender: TObject; ECode: Integer; EMessage: String);
  public
    { Public-Deklarationen }
  end;

[..]

procedure TForm1.SplitError;
var
  s: String;
begin
  s := 'Fehlercode: '+IntToStr(ECode)+#13#10;
  s := s + EMessage;
  Messagebox(Handle, PChar(s), 'Fehler', MB_ICONSTOP);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileSplitter;
begin
  fs := TFileSplitter.Create;
  try
    ...;
    fs.OnError := SplitError;
    fs.Execute;
  finally
    FreeAndNil(fs);
  end;
end;

Er sagt mir immer bei der Zuweisung des Events:

Zitat:

[Fehler] Unit1.pas(67): Nicht genügend wirkliche Parameter

Wo steckt der Fehler?