Kleines Spiel in Delphi

[honkundich]

Delphi-Quellcode:

 begin
if (haselnuss1.visible=false)and
   (haselnuss2.visible=false)and
   (haselnuss3.visible=false)and
   (haselnuss4.visible=false)and
   (haselnuss5.visible=false)and
   (haselnuss6.visible=false)and
   (haselnuss7.visible=false)then
begin
timer1.enabled:=false;
timer2.enabled:=false;
progressbar1.visible:=false;
Counter_sec:=0;

//Soundtrack für das Spiel beenden
Mediaplayer2.filename:='Propellerheads - Spybreak! (Short One).mp3';
Mediaplayer2.close;
Button1.caption:='Neues Spiel starten';

// Gewinnmeldung inklusive Gewinnersoundtrack
Mediaplayer3.filename:='Queen - We Are The Champions.mp3';
MediaPlayer3.open;
MediaPlayer3.play;
end;
end;

So sieht jetzt das Ende aus und es klappt auch alles, schon mal großen Dank für eure Hilfe!!!!
Ich würde gerne noch ne Gewinnmeldung oder halt eben eine Meldung das man verloren hat über ein Label oder ähnliches ausgeben.

Und was ich noch fragen wollte, kann man einen Button vom Aussehen und farblich etwas auffrischen, die grauen Buttons gefallen mir nicht so ganz.

Viele Grüße

honkundich