Необходима е помощ за кодиране на IRC клиент в Delphi 2010 с помощта на Indy Components

Опитвам се да кодирам основен irc клиент в Delphi 2010, използвайки компоненти на Indy. Мога да се свържа с моя irc сървър (unrealircd), като използвам пример A по-долу.

След свързване имам много процедури, които трябва да изпълняват действия, когато получи лично съобщение, ping, ctcp, канални режими и т.н., но те никога не реагират на нито едно от тези входящи събития.

Пример A: Това се свързва с IRC сървъра, когато се натисне бутон4. Успешно се присъединява към канала с посоченото име.

procedure TForm1.Button4Click(Sender: TObject);
begin
  IdIRC1.Host := '72.20.53.142';
  IdIRC1.Port := 6667;
  IdIRC1.Nickname := ssh.frmmain.Edit1.text;//insert your nickname here
    try
    idIRC1.Connect;
  except
    if not idIRC1.Connected then
      begin
        Memo2.Lines.add('Error Connecting to ' + idIRC1.Host);
        Exit;
      end;
  end;
  Memo2.Lines.add ('Connected to Auth Server');
  idIRC1.Join(channel,key);
  Memo2.Lines.add ('Auth Accepted');
end;

Тези събития изобщо не работят и не се генерират грешки по време на компилиране.

procedure TForm1.IdIRC1Connected(Sender: TObject);
begin
  memo2.Lines.Clear;
  memo2.Lines.add ('2Connected');
end;

procedure TForm1.IdIRC1ServerVersion(ASender: TIdContext; Version, Host, Comments: String);
begin
memo2.Lines.Add(Version +'Host '+Host+'Comments '+Comments);
end;