anchor.diff:  
   procedure TIRC.OnJoin(ASender: TIdContext; const ANickname, AHost, AChannel: String);
   begin
  +  if ANickname = FIdIRC.UsedNickname then
  +    Exit;
  +
     FOnUserJoined(AChannel, ANickname);
     FLog.Add('Joined: ' + ANickname + ' - ' + AHost + ' - ' + AChannel);
     AddChannelMessage(AChannel, 'Joined: ' + ANickname);
  
positive.code: procedure TIRC.Disconnect;
  begin
    //TODO: msg
  
    if FIdIRC.Connected then
      FIdIRC.Disconnect;
  end;
  
negative.code:   try
      C.Load;
  
      FIdIRC.Host := C.Host;
      FIdIRC.Port := C.Port;
      FIdIRC.Username:= C.Username;
      FIdIRC.Nickname:= C.Nickname;
  