Autorennen by Tigerhead

[Gast]

Das hatte ich auch vor, wirklich. Habe aber keinen Plan wie das geht. Hier mal der Code Teil für die Ampeln. Vielleicht kann mir jmd das da ja einbauen Und auch gut wäre wenn jmd mir sagen könnte welche Sounds ich nehmen kann. Vielleicht einen Windows Standart Sound ? Wenn ja welchen ?

Code:

procedure TForm1.Timer4Timer(Sender: TObject);
begin
 Label1.Caption := IntToStr(gewonnen);
 gewonnen := gewonnen -1;
 if (Label1.Caption = '0') then begin
  Image1.visible := true;
 end else
 if (Label1.Caption = '-1') then begin
  Image1.visible := false;
  Image2.visible := true;
 end else
 if (Label1.Caption = '-2') then begin
  Image2.visible := false;
  Image3.visible := true;
 end else
 if (Label1.Caption = '-3') then begin
  Image3.visible := false;
 end else
 if (Label1.Caption = '-4') then begin
  gewonnen := 0;
  Timer4.Enabled := false;
  btstop.Enabled := true;
end;
end;