anchor.diff:    Result := Pos('/', TrimLeft(Message)) = 1;
   end;
   
  -procedure TIRC.AutoJoinChannels;
  +procedure TIRC.AutoJoinChannels(Channels: TStrings);
   var
     I: Integer;
   begin
  -  if FAutoJoinChannels = nil then
  -     Exit;
  -
  -  for I := 0 to FAutoJoinChannels.Count -1 do
  -    Join(FAutoJoinChannels.ValueFromIndex[I]);
  -  FreeAndNil(FAutoJoinChannels);
  +  for I := 0 to Channels.Count -1 do
  +    Join(Channels.ValueFromIndex[I]);
   end;
   
   procedure TIRC.MessageToChannel(const Msg: string);
  
positive.code: destructor TIRC.Destroy;
  begin
    FIdIRC.Free;
    FAutoJoinChannels.Free;
    FCommands.Free;
    inherited;
  end;
  
negative.code: 
  implementation
  
  uses IdSync, IdGlobal, sysutils;
  
  resourcestring
    StrJoined = '* Joined: ';
  