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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

try
new := croupier.show_bets(bet);

//Münzen zeichnen Prozess!
if (croupier.show_bets(bet) > 0) then
   begin
   //Münze zeichnen
    if croupier.show_active_player = 1 then
     begin
     if croupier.show_bets(bet) < 100 then
      begin
       with bitmap do begin
       Loadfromfile(path);
       Transparent := true;
       Canvas.Brush.Style:=bsClear;
       Canvas.TextOut(3,5,IntToStr(new)); //  Einsatz schreiben
       Spielflaeche.l_tisch1.Canvas.Draw(x,y,bitmap);
       end;
      end
     else
      begin
       with bitmap do begin
       {...}
       Spielflaeche.l_tisch1.Canvas.Draw(x,y,bitmap);
       end;
       end;
   end
    else if croupier.show_active_player = 2 then
    begin
     if croupier.show_bets(bet) < 100 then
      begin
       with bitmap do begin
       {...}
       Spielflaeche.l_tisch2.Canvas.Draw(x,y,bitmap);
       end;
     end
     else
      begin
       with bitmap do begin
       {...}
       Spielflaeche.l_tisch2.Canvas.Draw(x,y,bitmap);
       end;
      end;
     end;
   end;

finally
bitmap.free;
end;                    

1:
2:
3:
4:

procedure TSpielflaeche.b_delbetClick(Sender: TObject);
begin
croupier.delete_bets(activeplayer);
end;                    

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

//Einsätze auf Chancen löschen bei Klick auf Delbet!
procedure Tcroupier.delete_bets(activeplayer :Tplayerpointer);
var i :integer;
begin

if activeplayer^ = player1 then
 begin
  Spielflaeche.l_tisch1.Repaint;
  ...

 end

 else
  begin
   Spielflaeche.l_tisch2.Repaint;
   ...
  end;

 croupier.set_round_amount(-Fround_amount);
  end;