Komponente zur Laufzeit erzeugen und events setzen? [TEIL2]

[alienous]

moin!

habs jetzt mal mit einer klasse versucht, aber irgendwie funktionierts nicht.

Delphi-Quellcode:

unit UnitTBot;

interface

uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdIRC, IrcBlowfish, UnitTChannel, 
  Windows, Forms;

type
  TBot = class (TObject)
    private
      FIRCConn : TIdIRC;

    public
      procedure Connect();
      constructor Create();
      destructor Destroy;
  end;

implementation

procedure Delay(Milliseconds: Integer);
//.... kennt ihr sicher ;)

Constructor TBot.Create;
begin
  //nochnix
end;

procedure FOnMessage(Sender: TObject; AUser: TIdIRCUser; AChannel: TIdIRCChannel; Content: String);
var text : String;
begin
  text := Content;
end;

procedure TBot.Connect;
begin
  FIRCConn := TIdIRC.Create(nil);
  FIRCConn.OnMessage := FOnMessage;

  FIRCConn.Username := 'hust';
  FIRCConn.Nick := 'checkkx';
  FIRCConn.Host := 'localhost';
  FIRCConn.Port := 6667;
  FIRCConn.Connect;

  Delay(5000);
  FIRCConn.Join('#test');
end;

destructor TPreBot.Destroy;
begin
  if FIRCConn.Connected then
    FIRCConn.Quit('');
  FIRCConn.Free;
  inherited Destroy;
end;

end.

das blöde ist, in der zeile mit der zuweisung, "FIRCConn.OnMessage := FOnMessage;" gibts beim compilieren nen fehler: "[Pascal Error] UnitTBot.pas(57): E2009 Incompatible types: 'method pointer and regular procedure'"

kann mir da jemand weiterhelfen?

danke