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

[Hansdieter]

Delphi-Quellcode:

procedure TForm4.LOSClick(Sender: TObject);
var  y : integer;
begin
  zahl.Caption:=floatToStr(int(random*36));
  y := StrToint(zahl.Caption);
  if (y > 0) and (y < 13) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(first.text))*3));
    first.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(first.text)));
    first.text:='0';
end;
    if (y > 12) and (y < 25) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(second.text))*3));
    second.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(second.text)));
    second.text:='0';
end;
    if (y > 24) and (y < 37) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(third.text))*3));
    third.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(third.text)));
    third.text:='0';
  end;
end;

so hab ichs jetzt und das klappt auch, ich hatts nur vorhin vergurkt