Блин, неужели выдумать нельзя на каждый чих отдельный класс?
Не задумывался над алгоритмом карточных игр, из головы вот сразу:
TCustomCard = class;
Размер: integer;
Рубашка: TBitmap;
end;
TCard = class (TCustomCard)
Масть: (Пики, Черви, Трефы, Бубны);
end;
TCustomGameCard = class (TCard)
Чья: TCardPlayer;
Состояние: (ВКолоде, УИгрока, Открыта, Бита, ...);
end;
Можно и ещё чего-нибудь придумать, если алгоритм поглядеть.
И для игрока классов наворотить не проблема.