Ohne mir diesen Code großartig angeschaut zu haben, ist mir aufgefallen, dass du begin und end; vergessen hast. Das muss so aussehen:
Delphi-Quellcode:
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;
end;
Aber wie schon gesagt: ich habe ihn mir wirklich nicht großartig angeschaut, mir ist nur diese Sache aufgefallen, ich hoffe, ich konnte helfen, wenn nicht, dann sry.