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

type
Tplayermuenzen = array [1..100] of Tbitmap;

{...}

var   p1_coins,p2_coins     :Tplayermuenzen;					

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:

if croupier.show_active_player = 1 then
     begin
     p1_coins[coin_counter+1] := Tbitmap.create; {!!!}
     if croupier.show_bets(bet) < 100 then
      begin
       with p1_coins[coin_counter+1] do begin
  //Coin_counter steht bei Spielerwechsel wieder auf 0, weil derjenige ja erst 0 Münzen gelegt hat
       {pfad := ExtractFilePath(Application.ExeName) + 'bilder\muenzen\coin0rosarund.bmp';
       Loadfromfile(pfad);
       Transparent := true;
       Canvas.Brush.Style:=bsClear;
       Canvas.TextOut(3,5,IntToStr(new));   Einsatz schreiben}
       Spielflaeche.l_tisch1.Canvas.Draw(x,y,p1_coins[coin_counter+1]);
       end;
      end
     else
      begin
       with p1_coins[coin_counter+1] do begin
       {pfad := ExtractFilePath(Application.ExeName) + 'bilder\muenzen\coin0rosaeck.bmp';
       Loadfromfile(pfad);
       Transparent := false;
       Canvas.Brush.Style:=bsClear;
       Canvas.TextOut(3,5,IntToStr(new));   Einsatz schreiben}
       Spielflaeche.l_tisch1.Canvas.Draw(x,y,p1_coins[coin_counter+1]);
       end;
       end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

if croupier.show_active_player = 1 then begin
 for i:=1 to 100 do
  begin
   p1_coins[i].Width := 0; {Hier haette ich gerne visible := false, aber er kennts irgendwie nicht}
   p1_coins[i].Height := 0;
   p1_coins[i].Free;
  end;
 end
 else
  begin
   p2_coins[i].Width := 0;
   p2_coins[i].Height := 0;
   p2_coins[i].Free;
  end;					

1:
2:

p2_coins[i].Width := 0;
p2_coins[i].Height := 0;					

1:

p1_coins[coin_counter+1] := Tbitmap.create;