Programmcode von Snake in Delphi

[Apona]

Also hier knallt es:

Delphi-Quellcode:

tsnake = class
  x,y:array[1..100] of integer; hinter dem x,
  vx,vy,r,laenge:integer;
  farbe:tcolor;
...

tapfel = class
  x,y,r,score:integer; auch hier hinter dem x,
  farbe:tcolor;

Danke schon mal für eure Hilfe