Hallo terryblack.
Schreibe deinen Quellcode bitte mal in [ delphi ] [ /delphi ]-Codeblöcke, dann wird wenigestens die Syntax hervorgehoben.
Bei deinem eigendlichen Problem kann ich dir aber leider nicht weiterhelfen. Schon mal die Suche probiert:
snake. Es gibt sogar ein Tuturial hier im Forum darüber wie man am besten Snake programmiert.
Viele Grüße
MCeddy