TIdIRCUser = class(TCollectionItem)

property Address: String;

property Data: TObject;

property Nick: String;

property Reason: String;

constructor Create(AClient: TIdIRC; ANick: String; AAddress: String); reintroduce;

destructor Destroy; override;

procedure Say(AMsg: String);