TIdNNTPOnCheckListGroup = procedure (AThread: TIdNNTPThread; const AGroup: string; var VCanJoin : Boolean; var VFirstArticle : Integer) of object;