anchor.diff:    SL := FOnChannelJoined(Name);
     FChannels.AddObject(Name, SL);
     FIdIRC.Join(Name);
  +end;
  +
  +procedure TIRC.LeaveChannel(const Name: string);
  +begin
  +  FIdIRC.Part(Name);
   end;
   
   procedure TIRC.SendMessage(const Message: string);
  
positive.code: 			FReady: Boolean;
        procedure AddChannelMessage(const Channel, Message: string);
        procedure ConfigureIdIRC;
        procedure MessageToChannel(const Message: string);
        procedure ReadConfig;
        procedure OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  
negative.code:   FIdIRC.OnServerWelcome := @OnWelcome;
  end;
  
  function TIRC.GetUserName: string;
  begin
    Result := FIdIRC.UsedNickname;
  end;
  
  procedure TIRC.AddChannelMessage(const Channel, Message: string);
  begin
    (FChannels.Objects[FChannels.IndexOf(Channel)] as TStrings).Add(Message);
  