Brauche Hilfe bei roulettespiel, (feld-inhalt x3 + Geldfeld)

[Hansdieter]

Delphi-Quellcode:

ZAHL.caption:=floatToStr(int(random*36));
y:=StrToint(ZAHL.caption);

so hatte ichs jetzt gemacht



was aber nicht klappt ist die else abfrage

Delphi-Quellcode:

begin
ZAHL.caption:=floatToStr(int(random*36));
y:=StrToint(ZAHL.caption);
 IF (y>0) AND (y<13) THEN
  money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(first.text))*3));
  first.text:='0';
 ELSE    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(first.text));
    first.text:='0';
end;