TIrcClient = class(TIpClient)
  private
    FBufferInput: string;
    FChansListing: boolean;
    FConnecting: boolean;
    FIgnoreBounces: boolean;
    FIgnoreNoServerPing: boolean;
    FIncludeEmtpyTrailing: boolean;
    FIncludeOutPrefix: boolean;
    FIrcMsg: TIrcMsg;
    FIrcModesPrefixChanUser: TIrcModesPrefixChanUser;
    FIrcServer: string;
    FIrcUserData: TIrcUserData;
    FLock: TRTLCriticalSection;
    FOnChansPrefix: TNotifyEvent;
    FOnGetIrcMsg: TIrcMsgEvent;
    FOnRegisterStatusChanged: TIrcRegisterEvent;
    FOnSendIrcMsg: TIrcMsgEvent;
    FOnTimer: TNotifyEvent;
    FPongSize: integer;
    FRegisterStatus: TIrcRegisterStatus;
    FSendOnRegister: TStrings;
    FService: boolean;
    FTimer: TTimer;
    function GetHost: string;
    function GetIgnoreNoServerPing: boolean;
    function GetIncludeEmtpyTrailing: boolean;
    function GetIncludeOutPrefix: boolean;
    function GetInitMode: string;
    function GetIrcServer: string;
    function GetIrcTimerInterval: cardinal;
    function GetNameAlt: string;
    function GetNickName: string;
    function GetOnChansPrefix: TNotifyEvent;
    function GetOnGetIrcMsg: TIrcMsgEvent;
    function GetOnRegisterStatusChanged: TIrcRegisterEvent;
    function GetOnSendIrcMsg: TIrcMsgEvent;
    function GetOnTimer: TNotifyEvent;
    function GetPassword: string;
    function GetRealName: string;
    function GetRegisterStatus: TIrcRegisterStatus;
    function GetSendOnRegister: TStrings;
    function GetService: boolean;
    function GetUser: string;
    procedure DoAutoNotice;
    procedure DoCheckPrefix(IrcParams: TIrcParams);
    procedure DoErr_NickName;
    procedure DoRPL_Bounce(IrcParams: TIrcParams);
    procedure DoRPL_Welcome(IrcParams: TIrcParams);
    procedure DoRPL_Youreservice(IrcParams: TIrcParams);
    procedure DoMsgFromMe(IrcMsg: TIrcMsg);
    procedure SetHost(const AHost: string);
    procedure SetIgnoreNoServerPing(Value: boolean);
    procedure SetIncludeEmtpyTrailing(Value: boolean);
    procedure SetIncludeOutPrefix(Value: boolean);
    procedure SetInitMode(const AMode: string);
    procedure SetIrcServer(const AIrcServer: string);
    procedure SetIrcTimerInterval(const Value: cardinal);
    procedure SetNameAlt(const ANameAlt: string);
    procedure SetNickName(const ANickName: string);
    procedure SetOnChansPrefix(NotifyEvent: TNotifyEvent);
    procedure SetOnGetIrcMsg(IrcMsgEvent: TIrcMsgEvent);
    procedure SetOnRegisterStatusChanged(IrcRegisterEvent: TIrcRegisterEvent);
    procedure SetOnSendIrcMsg(IrcMsgEvent: TIrcMsgEvent);
    procedure SetOnTimer(const AValue: TNotifyEvent);
    procedure SetPassword(const APassword: string);
    procedure SetRealName(const ARealName: string);
    procedure SetRegisterStatus(IrcRegisterStatus: TIrcRegisterStatus);
    procedure SetUser(const AUser: string);
  protected
    function ccConnectSocket(const RemoteURL : AnsiString) : TSocket; override;
    function GetIrcMsgSize(IrcMsg: TIrcMsg): integer; virtual;
    procedure DoAssignMsg(const Source: string; Dest: TIrcMsg); virtual;
    procedure DoError(Socket : TSocket; ErrCode : Integer; const ErrStr : AnsiString); override;
    procedure DoErrorReply(Handle : TIpHandle; ErrCode : Integer; const ErrStr : AnsiString); override;
    procedure DoGetChansPrefix; virtual;
    procedure DoGetIrcMsg(IrcMsg: TIrcMsg); virtual;
    procedure DoIncludePrefix(IrcMsg: TIrcMsg); virtual;
    procedure DoMode(IrcMsg: TIrcMsg); virtual;
    procedure DoOnTimer(Sender: TObject); virtual;
    procedure DoPingMe(IrcMsg: TIrcMsg); virtual;
    procedure DoReadLine(Socket : TSocket; const Line : AnsiString); override;
    procedure DoRegister; virtual;
    procedure DoRegisterStatusChanged(IrcRegisterStatus: TIrcRegisterStatus); virtual;
    procedure DoStatus(Socket : TSocket; Event : TIpStatusType; Connection : TIpConnRec); override;
    procedure SendMsg(const StrMsg: string; Disconnect: Boolean);
    procedure SetSockProtocol(const Value : TIpSockProtocol); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function ChansListing: boolean;
    function Connecting: boolean;
    function CurMode: string;
    function IrcModesPrefixChanUser: TIrcModesPrefixChanUser;
    function PongSize: integer;
    function Registered: boolean;
    class procedure CreateIrcMsg(var IrcMsg: TIrcMsg); virtual;
    procedure Lock;
    procedure IrcServerConnect;
    procedure SendIrcMsg(IrcMsg: TIrcMsg; Disconnect: boolean); virtual;
    procedure SendIrcMsgExt(const ACommand, AParams, AMsg: string);
    procedure SendIrcMsgStr(var AStrIrcMsg: string);
    procedure SendIrcNick(const ANick: string);
    procedure SendIrcNotice(const ATarget, AMsg: string);
    procedure SendIrcPass(const APassword: string);
    procedure SendIrcPrivMsg(const ATarget, AMsg: string);
    procedure SendIrcService(const ANick, ADistribution, AInfo: string);
    procedure SendIrcUser(const AUser, AMode, ARealName: string);
    procedure Unlock;
    property RegisterStatus: TIrcRegisterStatus read GetRegisterStatus;
    property SendOnRegister: TStrings read GetSendOnRegister;
    property Service: boolean read GetService;
  published
    property DefaultPort;
    property Host: string read GetHost write SetHost;
    property IncludeEmptyTrailing: boolean read GetIncludeEmtpyTrailing
       write SetIncludeEmtpyTrailing default false;
    property IgnoreNoServerPing: boolean read GetIgnoreNoServerPing
       write SetIgnoreNoServerPing default false;
    property IncludeOutPrefix: boolean read GetIncludeOutPrefix
       write SetIncludeOutPrefix default false;
    property InitMode: string read GetInitMode write SetInitMode;
    property IrcServer: string read GetIrcServer write SetIrcServer;
    property IrcTimerInterval: cardinal read GetIrcTimerInterval write SetIrcTimerInterval default IRCCLIENTDEFTIMERINTERVAL;
    property NameAlt: string read GetNameAlt write SetNameAlt;
    property NickName: string read GetNickName write SetNickName;
    property OnChansPrefix: TNotifyEvent read GetOnChansPrefix write SetOnChansPrefix;
    property OnGetIrcMsg: TIrcMsgEvent read GetOnGetIrcMsg write SetOnGetIrcMsg;
    property OnRegisterStatusChanged: TIrcRegisterEvent read GetOnRegisterStatusChanged
       write SetOnRegisterStatusChanged;
    property OnSendIrcMsg: TIrcMsgEvent read GetOnSendIrcMsg write SetOnSendIrcMsg;
    property OnTimer: TNotifyEvent read GetOnTimer write SetOnTimer;
    property Password: string read GetPassword write SetPassword;
    property RealName: string read GetRealName write SetRealName;
    property User: string read GetUser write SetUser;
  end;