Daten in Record einlesen schlägt fehl

[Balu der Bär]

Moin,

ich möchte gerne ein paar zufällige Daten in ein Record einlesen.
Mein Record sieht ungefähr so aus:

Delphi-Quellcode:

type
  TBJCard = record
    CardFace: TFaces;
    CardColor: TSuits;
    Value: Integer;
    IsAce: Boolean;
  end;

Diese soll jetzt befüllt werden, dazu habe ich folgende Prozedur geschrieben (Auszug):

Delphi-Quellcode:

procedure TFrmMain.GenerateCard(Karte: TBJCard);
var
  i, g: Integer;
begin
  i := random(13);
  g := random(4);

  // hier fehlt manches

  case g of
   0: Karte.CardColor := Clubs;
   1: Karte.CardColor := Diamonds;
   2: Karte.CardColor := Hearts;
   3: Karte.CardColor := Spades;
  end;

Der Aufruf erfolgt dann einfach per

Delphi-Quellcode:

var
 test: TBJCard;

...
 
GenerateCard(test);

Lässt sich auch kompilieren ohne Fehler aber trotzdem bleibt test.CardColor leer. Es werden einfach keine Daten in den übergebenen Record eingetragen, kann mir das jemand erklären? Also entweder wars heute zur Ente doch ein Glas Rotwein zu viel oder ich bin bisschen blind so kurz vor Weihnachten...

Besten Dank,