If you wanted to be a little more object oriented, you might want to create classes instread of records. Something like:
interface
type
enCardSuit = ( csClubs, csSpades, csDiamonds, csHearts);
enCardStatus = (cstSolved, cstHand, cstTable);
TCard = class( TObject)
private
fValue...