TMyGroupList=class
private
FList: TMemberList; //保存分组
FGroupCount: Integer; //分组个数，你要的是7个组
public
...
end;

TMemberList=class
private
FList: TStringList; //保存待抽的人
public
end;

TBombList=class
private
FList: THashStringList; //保存中奖人，用 hasnStringList 应该在对比是否重复的时候，速度比较快点。这样就不用从原来的待抽人里删除抽中的。
pbulic
...
end;