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