1:
2:

type TPoint = record x,y: Integer; end;
var Snake: array of TPoint					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure InitVariables;
var i: Integer;
begin
  SetLength(Snkae,5);   //schlangenlänge auf 5 setzten
  for i := 0 to 4 do    //von 0. bis zum 4. element durchzählen
    begin
      Snake[i].x := 50;   //X-Wert festlegen
      Sanke[i].y := 48+i; //Y-Wert festlegen
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure RenderSnake;
var i: Integer;
begin
  Image.Canvas.Pen.Width := 5;
  for i := 0 to High(Snake) do //vom 1. bis zum letzten element durchzählen
    begin
      Image.Canvas.MoveTo(Snake[i].x,Snake[i].y);
      Image.Canvas.LineTo(Snake[i].x,Snake[i].y+1);       
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure MoveSnake;
begin
  for i := High(Snake) downto 1 do //von letzen bis zum 2. Element zählen
    begin
      Snake[i].x := Snake[i-1].x; //X Position ein nachrutschen
      Snake[i].y := Snake[i-1].y; //Y Position ein nachrutschen
    end;
  Snake[0].x := Snake[1].x;
  Snake[0].y := Snake[1].y-1; //1. Element eins höher setzten
  //wenn ich eine andere Richting bewegt werden soll einfach einen anderen Punkt berechnen!
end;					

1:
2:

type TPoint = record x,y: Integer; end;
var Snake: array of TPoint					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure InitVariables;
var i: Integer;
begin
  SetLength(Snkae,5);   //schlangenlänge auf 5 setzten
  for i := 0 to 4 do    //von 0. bis zum 4. element durchzählen
    begin
      Snake[i].x := 50;   //X-Wert festlegen
      Sanke[i].y := 48+i; //Y-Wert festlegen
    end;
end;					

1:
2:

    TPoint = record x,y: Integer;
  end;