IdIRC.OnReceive-Methode verknüpfen

[Unplugged]

Delphi-Quellcode:

{$APPTYPE CONSOLE}

uses
  SysUtils,
// ...
  Classes;

type
  TServer=class(TIdIRC)
    Procedure logging(ACommand: String);
  end;
  Tirc = class(TThread)
  public
    procedure Execute; override;
  private
    IdIRC1      : TServer;
  end;

Var
  term_sign     : Boolean = False;

procedure TServer.logging(ACommand: String);
Begin
  WriteLn(ACommand);
end;

procedure Tirc.Execute;
Var
  ACommand: String;
Begin
  IdIRC1 := TServer.Create(nil);
//  IdIRC1.OnReceive := IdIRC1.logging;       <<< der Fehler bzw. das Problem ;)
  IdIRC1.Host := '211.114.181.163';
  IdIRC1.Port := 8667;
  IdIRC1.Nick := 'test';
  IdIRC1.AltNick := 'test_';
  IdIRC1.RealName := 'B0t';
  IdIRC1.Username := 'B0t';
  try
    IdIRC1.Connect;
  except
    term_sign := true;
    WriteLn('Unknown error');
  end;

  repeat
    sleep(200);
  until term_sign;
end;

//....

Weiß jemand, wie ich die Methoden verknüpfen kann?

Derzeit kommt die Fehlermeldung, dass TObject und String nicht verknüpft werden können.