Probleme beim Ableiten von TIdIRC

[Jörn]

Ich habe folgenden Code (klar quick'n'dirty, kein Fehlerhandling usw):

Delphi-Quellcode:

unit u_ircbot;

interface

uses Classes, IdIRC;

type
  TIdIRCBot = class(TIdIRC)
  private
    procedure Test(Sender: TObject; AUser: TIdIRCUser;
      AChannel: TIdIRCChannel; Content: String);
  public
    constructor create(AOwner: TComponent); override;
  end;

implementation

constructor TIdIRCBot.create(AOwner: TComponent);
begin
  inherited;
  @Self.OnMessage := @Test(Sender, AUser, AChannel, Content); //hier gibt es Fehler, s. u.
  Self.Nick := 'Bot';
  Self.Name := 'Bot';
  Self.Host := 'irc.euirc.net';
  Self.Connect();
  Self.Join('#test_bot');

end;

procedure TIdIRCBot.Test(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
  Self.Say(AUser.Nick, 'Hallo, ' + AUser.Nick);
end;

end.

Die Fehler sind:
[Error] u_idircbot.pas(21): Undeclared identifier: 'Sender'
[Error] u_idircbot.pas(21): Undeclared identifier: 'AChannel'
[Error] u_idircbot.pas(21): Variable required

Könnt ihr mir da helfen? Vielen Dank schon mal!

EDIT: Unit-Namen richtiggestellt...