anchor.diff:  destructor TIRC.Destroy;
   begin
     FIdIRC.Free;
  -  FAutoJoinChannels.Free;
     FCommands.Free;
     inherited;
   end;
  
positive.code:       property OnMessageReceived: TOnMessageReceived read FOnMessageReceived write FOnMessageReceived;
        property OnShowPopup: TOnShowPopup read FOnShowPopup write FOnShowPopup;
        property UserName: string read GetUserName;
        procedure AutoJoinChannels;
        function IsConnected: Boolean;
        procedure Connect;
        procedure Disconnect;
  
negative.code:   Result := Pos('/', TrimLeft(Message)) = 1;
  end;
  
  procedure TIRC.AutoJoinChannels(Channels: TStrings);
  var
    I: Integer;
  begin
    for I := 0 to Channels.Count -1 do
      Join(Channels.ValueFromIndex[I]);
  end;
  
  procedure TIRC.MessageToChannel(const Msg: string);
  