Guten Abend,
vielleicht so:
Delphi-Quellcode:
if (y2=4) and (x in [13..24]) then
begin
g2:=g2+einsatz2*2;
showmessage('2 Dutzend gewinnt!');
end;
var kkeinsatz1, kkeinsatz2, keinsatz1, keinsatz2, einsatz1, einsatz2, x, y1, y2, g1, g2, a, b :integer;
Ausserdem ist Dein g1 und g2 lokal deklariert, es gilt nur in der ButtonClick Routine.
Und
randomize bitte nur einmal im Programm aufrufen, z.B. in der OnCreate Routine.
Grüße
Klaus