anchor.diff:  			FReady: Boolean;
         procedure AddChannelMessage(const Channel, Message: string);
         procedure ConfigureIdIRC;
  +      function GetUserName: string;
         procedure MessageToChannel(const Message: string);
         procedure ReadConfig;
         procedure OnStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  
positive.code:   FIdIRC.OnServerWelcome := @OnWelcome;
  end;
  
  procedure TIRC.AddChannelMessage(const Channel, Message: string);
  begin
    (FChannels.Objects[FChannels.IndexOf(Channel)] as TStrings).Add(Message);
  
negative.code:     MessageToChannel(Message);
  end;
  
  constructor TIRC.Create;
  begin
    inherited;
  