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

procedure loaddximagelist;
var
  i:integer;
begin
  for i:=0 to 18 do
    pakim[i]:=Tbitmap.create;
  pakim[0].LoadFromfile('D:\misc\progs\in progress\snake\06 - resources_pictures\astartsnake.bmp');
.
.
.
  pakim[18].LoadFromfile('D:\misc\progs\in progress\snake\06 - resources_pictures\target.bmp');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure loaddximagelist;
var
  i:integer;
begin
  for i:=0 to 18 do
    pakim[i]:=Tbitmap.create;
  pakim[0].LoadFromfile('astartsnake.bmp');
  pakim[1].LoadFromfile('ffds.bmp');
  pakim[2].LoadFromfile('sb-east.bmp');
  pakim[3].LoadFromfile('sb-north.bmp');
  pakim[4].LoadFromfile('sb-south.bmp');
  pakim[5].LoadFromfile('sb-west.bmp');
  pakim[6].LoadFromfile('sc-northeast.bmp');
  pakim[7].LoadFromfile('sc-northwest.bmp');
  pakim[8].LoadFromfile('sc-southeast.bmp');
  pakim[9].LoadFromfile('sc-southwest.bmp');
  pakim[10].LoadFromfile('se-east.bmp');
  pakim[11].LoadFromfile('se-north.bmp');
  pakim[12].LoadFromfile('se-south.bmp');
  pakim[13].LoadFromfile('se-west.bmp');
  pakim[14].LoadFromfile('sh-east.bmp');
  pakim[15].LoadFromfile('sh-north.bmp');
  pakim[16].LoadFromfile('sh-south.bmp');
  pakim[17].LoadFromfile('sh-west.bmp');
  pakim[18].LoadFromfile('target.bmp');
end;					

1:
2:

//PAINT TARGET FIRST ONE TIME
  form1.image1.canvas.Draw(target.x-(snakewidth div 2),target.y-(snakewidth div 2),pakim[18]);					

1:
2:
3:
4:
5:

  setlength(snakepoints,2);
  snakeheaddir:=3;
  snakepoints[0]:=point(200,100);
  snakepoints[1]:=point(137,100);
  snakepoints[2]:=point(137,130);