Прокомментировать код игры "змейка"

procedure TForm1.Insert(x, y: integer); ( ??? что делает она ??? )
begin
  new(t);
  t^.x := x;
  t^.y := y;
  t^.next := nil;
  if kon <> nil then
    kon^.next := t;
  kon := t;
  if nach = nil then
    nach := t;
 
  Image1.Canvas.Brush.Color := clRed; // Заливка змейки
  Image1.Canvas.Pen.Color := clBlack; // Обводка змейки
  Image1.Canvas.Rectangle(t^.x, t^.y, t^.x + 10, t^.y + 10);
  // ( Рисуем квадрат) верхний-левый угол в t^.x, t^.y ,
//  а правый-нижний в t^.x + 10, t^.y + 10
end;
 
procedure TForm1.Delete; ( ??? и эта (( ??? )
begin
  t := nach;
  Image1.Canvas.Brush.Color := clWhite; // Делаем заливку белым
  Image1.Canvas.Pen.Color := clWhite; // Закрашиваем белым обводку
  Image1.Canvas.Rectangle(t^.x, t^.y, t^.x + 10, t^.y + 10);
  // ( Рисуем квадрат) верхний-левый угол в t^.x, t^.y ,
  //  а правый-нижний в t^.x + 10, t^.y + 10
  nach := t^.next;
  Dispose(t); // Удаляем t
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  kon := 0;   ( ??? )
  nach := 0;   ( ??? )
  n := 2; // длинна змейки( начальная )
  k := 0; //удлинение змейки
  x := 50;
  y := 50; // координаты змейки ( начальные )
  a := random(Image1.Width div 10) * 10; // Координаты "яблока"
  b := random(Image1.Height div 10) * 10; // Координаты "яблока"
  dx := 10; // Движение по оси х
  dy := 0; // Движение по оси у
 
  TempKey := 39; // Предыдущая нажатая клавиша
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 
  if (Key = 37) and (TempKey <> 39) then // Движение вправо
  begin
    dx := -10;
    dy := 0;
    TempKey := Key; // Предущая клавиша = нажатой
  end;
 
  if (Key = 39) and (TempKey <> 37) then // Движение влево
  begin
    dx := +10;
    dy := 0;
    TempKey := Key; // Предущая клавиша = нажатой
  end;
 
  if (Key = 38) and (TempKey <> 40) then // Движение вверх
  begin
    dy := -10;
    dx := 0;
    TempKey := Key; // Предущая клавиша = нажатой
  end;
 
  if (Key = 40) and (TempKey <> 38) then // Движение вниз
  begin
    dy := +10;
    dx := 0;
    TempKey := Key; // Предущая клавиша = нажатой
  end;
 
end;
 
/// Начало игры
 
procedure TForm1.Timer1Timer(Sender: TObject);   ( ??? немного тут комментариев не помешало бы, как к чему (( ??? )
begin
  Image1.Canvas.Pen.Width := 1;    //  Толщина обводки
  Image1.Canvas.Pen.Color := clBlue; // Цвет "яблока"
  Image1.Canvas.Ellipse(a, b, a + 10, b + 10);
  // ( Рисуем квадрат) верхний-левый угол в a, b ,
  //  а правый-нижний в a + 10, b + 10
 
  x := x + dx; //   Движение по оси х
  y := y + dy; //   Движение по оси у
  t := nach;
 
  // Если так, то змейка не врезается  в границы экрана
 { if x >= Image1.Width then x := 0;
  if y >= Image1.Height then y := 0;
  if x < 0 then x := (Image1.Width div 10) * 10;
  if y < 0 then y := (Image1.Height div 10) * 10; }
 
  //  Если так, то змейка  врезается в границы экрана
  if x >= Image1.Width then
    x := t^.x;
  if y >= Image1.Height then
    y := t^.y;
  if x < 0 then
    x := 0;
  if y < 0 then
    y := 0;
 
  while t <> nil do
  begin
 
    if (x = t^.x) and (y = t^.y) then
    begin
      Timer1.Enabled := False; // отключаем таймер
      Pause.Enabled := False;  //  Деактивируем кнопку
      Dalee.Enabled := False;  //   Деактивируем кнопку
      Form5.Show; // показываем форму 5
    end;
 
    t := t^.next;
  end;
 
  Insert(x, y);
 
  if (k = n) and (x = a) and (y = b) then      // Когда змейка "сьедает" яблоко
  begin
 
    if n = 5 then
    begin
      Timer1.Interval := 200;
      p := 2;
    end;
 
    if n = 14 then
    begin
      Timer1.Interval := 150;
      p := 4;
    end;
 
    if n = 29 then
    begin
      Timer1.Interval := 100;
      p := 6;
    end;
 
    if n = 50 then
    begin
      Timer1.Interval := 75;
      p := 8;
    end;
 
    if n = 77 then
    begin
      Timer1.Interval := 50;
      p := 10;
    end;
 
    if n = 110 then
    begin
      Timer1.Interval := 25;
      p := 15;
    end;
 
    if n = 158 then
    begin
      Timer1.Interval := 20;
      p := 20;
    end;
 
    n := n + p + 1; // Длинна змейки
    Label10.Caption := IntToStr(p); // Выводим бонус
    Label3.Caption := IntToStr(n - 2); //Выводим  очки
 
    a := random(Image1.Width div 10) * 10; // Координаты "яблока"
    b := random(Image1.Height div 10) * 10; // Координаты "яблока"
  end;
 
  k := k + 1; // Прибавляем элемент змейки спереди
 
  if k > n then
  begin
    Delete; // Удаляем сзади элемент змейки
    k := k - 1; // отнимаем элемент змейки сзади
  end;
end;

if x >= Image1.Width then
x := t^.x;
if y >= Image1.Height then
y := t^.y;
if x < 0 then
x := 0;
if y < 0 then
y := 0;

if x >= Image1.Width then
x := 0;
if y >= Image1.Height then
y := 0;
if x < 0 then
x := 0;
if y < 0 then
y := 0;

if x >= Image1.Width then
x := t^.x;
if y >= Image1.Height then
y := t^.y;
if x < 0 then
x := t^.x;
if y < 0 then
y := t^.y;