Es ist so einfach komme aber nich drauf - Wert addieren ...

[Klaus01]

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