1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

    IdIRC1.Host := 'de.quakenet.org';
    IdIRC1.Port := 6667;
    IdIRC1.Username := 'blub';
    IdIRC1.Realname := 'blub bla';
    IdIRC1.Nick := 'blubblub';

    IdIRC1.Connect(3000);
...
procedure TToolForm.IdIRC1Connected(Sender: TObject);
begin
  IdIRC1.Join('#channel');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdIRC;

type
  TForm1 = class(TForm)
    IdIRC1: TIdIRC;
    Memo1: TMemo;
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idIRC1.Connect();
timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.Add(idIRC1.ReadLn() );
end;

end.					

1:

IdIRC1.Raw('JOIN #test');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TToolForm.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
  AContent: String; var Suppress: Boolean);
begin
  Memo2.Lines.add('[RAW]: ' + AContent);
end;

procedure TToolForm.IdIRC1System(Sender: TObject; AUser: TIdIRCUser;
  ACmdCode: Integer; ACommand, AContent: String);
begin
    Memo2.Lines.Add('[System]'+AContent);
end;

procedure TToolForm.IdIRC1SocketError(Sender: TObject; ASocket,
  AMsg: String);
begin
    Memo2.Lines.Add('[SocketError]'+AMsg);
end;					

1:
2:
3:
4:
5:

procedure IdIRC1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: String);
procedure IdIRC1System(Sender: TObject; AUser: TIdIRCUser;
      ACmdCode: Integer; ACommand, AContent: String);
procedure IdIRC1SocketError(Sender: TObject; ASocket, AMsg: String);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TToolForm.IdIRC1Status(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
  Memo2.Lines.Add('[Status]'+AStatusText);
end;

procedure TToolForm.IdIRC1System(Sender: TObject; AUser: TIdIRCUser;
  ACmdCode: Integer; ACommand, AContent: String);
begin
    Memo2.Lines.Add('[System]'+AContent);
end;

procedure TToolForm.IdIRC1SocketError(Sender: TObject; ASocket,
  AMsg: String);
begin
    Memo2.Lines.Add('[SocketError]'+AMsg);
end;					

1:
2:

TToolForm.IdIRC1SocketError(Sender: TObject; ASocket,
  AMsg: String);