Einfaches Snake-Spiel ohne irgendwelche Extras

[RitterSport]

Mir war heute etwas langweilig, also hab ich ein kleines Snake mit Delphi programmiert . Soll eigentlich erst mal so ne Art Snake Demo sein, die zeigen soll wie Snake prinzipiell funktioniert. Deswegen erfolgt die Grafikausgabe auch ganz gewöhnlich: Es werden Shapes verwendet.
So, ich upload es jetzt mal. Vielleicht sind ja noch ein paar Fehler (Speicher freigegeben?) drinnen auf die ihr mich aufmerksam machen könnt. Auch Verbesserungsvorschläge sind willkommen. Ich hab mal daran gedacht irgendwann folgendes zu verbessern:

• -Kollisionsüberprüfung zur Code-Überschaubarkeit in eigene, allgemeine Funktion schreiben

• -Vermeiden dass ein neuer Apfel unter der Schlange erscheint

So sachen wie bessere Grafik, irgendwelche Apfeless-Sounds und Hintergrundmusik usw mach ich jedenfalls vorerst nicht. Wie gesagt soll das Programm ja erst mal das Prinzip von Snake so demonstrieren, dass es jeder versteht.