1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

//Globale Variablen
KartenStapel:array[1..56] of byte;//1-14(1-10,B,D,K,As) (herz) 15-28(pik) 29-42(kreuz) 42-54(Karo) 
AktuelleStapelPosition:byte;

Procedure CreateKartenStapel;
var i,Karte:integer;
    VerfügbarenKarten:array[1..56] of boolean;
begin
 randomize;
 for Karte:=1 to 56 do            //Variblen initalisieren 
  VerfügbarenKarten[Karte]:=true;
 AktuelleStapelPosition:=1;       // ertse Karte, Stapel Voll
 for Karte:=1 to 56 do
 begin
  //such nach einer verfügbaren Karte
  repeat
   i:=random(56)+1; 
  until VerfügbarenKarten[i]=true;
  KartenStapel[Karte] :=i;       // Karte in den Stapel Schreiben
  VerfügbarenKarten[i]:=false;   // Karte nicht mehr Verfügbar
 end;
end;

Function GibNeueKarte:byte;//die nächste Karte aus dem Stapel 0=stapel leer, 1-14(1-10,B,D,K,As) (herz) 15-28(pik) 29-42(kreuz) 42-54(Karo) 
begin
 Result:=0;
 if AktuelleStapelPosition in [1..56] then
 begin
  Result:=KartenStapel[AktuelleStapelPosition];
  inc(AktuelleStapelPosition);
 end; 
end;					

1:
2:
3:
4:

//Global
var
 AnzahlOffenerKarten : integer//0-12
 OffeneKarten        : array[1..12] of integer;//der Wert der Karte zB. 0=frei 1-56					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

If (karte3 =  1  ) and (Farbe3 = 1)then begin
    Bild3.picture.loadfromfile
    ('C:\Users\Tom\Desktop\3. HAK\SEN\Projekte\BLACK JACK\Kartensatz\he1.jpg');
end;

If (karte3 =  1  ) and (Farbe3 = 2)then begin
    Bild3.picture.loadfromfile
    ('C:\Users\Tom\Desktop\3. HAK\SEN\Projekte\BLACK JACK\Kartensatz\pi1.jpg');
end;

If (karte3 =  1  ) and (Farbe3 = 3)then begin
    Bild3.picture.loadfromfile
    ('C:\Users\Tom\Desktop\3. HAK\SEN\Projekte\BLACK JACK\Kartensatz\kr1.jpg');
end;

If (karte3 =  1  ) and (Farbe3 = 4)then begin
    Bild3.picture.loadfromfile
    ('C:\Users\Tom\Desktop\3. HAK\SEN\Projekte\BLACK JACK\Kartensatz\ka1.jpg');
end;
.. usw					

1:
2:
3:
4:
5:
6:
7:

 if Karte3 in [1..13] and Farbe3 in [1..4] then
  case Farbe3 of
   1:Bild3.picture.loadfromfile(format('Kartensatz\he%d.jpg',[karte3]));
   2:Bild3.picture.loadfromfile(format('Kartensatz\pi%d.jpg',[karte3]));
   3:Bild3.picture.loadfromfile(format('Kartensatz\kr%d.jpg',[karte3]));
   4:Bild3.picture.loadfromfile(format('Kartensatz\ka%d.jpg',[karte3]));  
  end;