program Project1;

uses
  SysUtils,
  idirc,
  IdContext;

Type
  TObjMetods = Class
    Procedure ServerWelcome(ASender: TIdContext; const AMsg: String);
  End;

var
  irc1: TIdIrc;
  oMetods: TObjMetods;
  { TObjMetods }

procedure TObjMetods.ServerWelcome(ASender: TIdContext; const AMsg: String);
begin
  Writeln(AMsg);
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  oMetods := TObjMetods.Create;
  irc1 := TIdIrc.Create(nil);
  try
    irc1.Nickname := 'testNick';
    irc1.Host := '*-*****';
    irc1.Port := 6667;
    irc1.OnServerWelcome := oMetods.ServerWelcome; // Вот что тебе нужно
    sleep(20000);
  finally
    oMetods.Free;
    irc1.Free;
  end;

end.

irc1.OnServerWelcome := oMetods.ServerWelcome;