Помогите с игрой "Змейка".

[spamer]

Создаю змею из компонентов TShape. Тело змеи хранится в списке, изначально 3 Shape'a.Движение реализовано.Ну вообщем почти все готово, токо вот........

Вопрос:
Подскажите, как сделать, чтобы змея поедала еду (едой также будет служить компонент TShape, который будет появляться в любом месте игрового поля) ???

Вот то что уже написал :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Main: TMenuItem;
    NewGames: TMenuItem;
    N1: TMenuItem;
    Exit: TMenuItem;
    Cpravka: TMenuItem;
    About_program: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    List:TList;
    
    procedure CreateListOfShape;
    procedure AddOfShape;
    procedure Vpravo;
    procedure VLevo;
    procedure VVerx;
    procedure Vniz;
  end;
const
  shag = 10;

var
  Form1: TForm1;
  var
  napravlenie: string[1];
  a,b:integer;
implementation

{$R *.dfm}
procedure TForm1.CreateListOfShape();
var
   i: Integer;
   TopItem: Integer;
   Item:TShape;
begin
  TopItem:=150;
  List:= TList.Create;
  for i:=0 to 2 do
  begin
    Item:=TShape.Create(self);
    Item.Width:=10;
    Item.Height:=10;
    Item.Top:=TopItem;
    Item.Left:=150;
    TopItem:=TopItem+Item.Height;
    Item.Parent:=Form1.Panel1;
    List.Add(Item);
  end;
a := 0;
b := List.Count - 1;
end;


procedure TForm1.AddOfShape();
var
 Item:TShape;
 TopItem: Integer;
begin
    TopItem:=150;
    Item:=TShape.Create(self);
    Item.Width:=10;
    Item.Height:=10;
    Item.Top:=TopItem;
    TopItem:=TopItem+Item.Height;
    Item.Parent:=Form1.Panel1;
    List.Add(Item);
end;

procedure TForm1.VPravo();
var
  Item:TShape;
  Item1:TShape;
begin
Item:= Form1.List[a];
Item1:= Form1.List[b];
Item.Top:=Item1.top;
Item.Left:=Item1.Left+shag;
  b := a;
  a := a + 1;
  if a > (List.Count-1)  then a := 0;
end;

procedure TForm1.VLevo();
var
  Item:TShape;
  Item1:TShape;
begin
Item:= Form1.List[a];
Item1:= Form1.List[b];
Item.Top:=Item1.top;
Item.Left:=Item1.Left-shag;
  b := a;
  a := a + 1;
  if a > (List.Count-1)  then a := 0;
end;

procedure TForm1.VVerx();
var
  Item:TShape;
  Item1:TShape;
begin
Item:= Form1.List[a];
Item1:= Form1.List[b];
Item.Top:=Item1.top-shag;
Item.Left:=Item1.Left;
  b := a;
  a := a + 1;
  if a > (List.Count-1)  then a := 0;
end;

procedure TForm1.Vniz();
var
  Item:TShape;
  Item1:TShape;
begin
Item:= Form1.List[a];
Item1:= Form1.List[b];
Item.Top:=Item1.top+shag;
Item.Left:=Item1.Left;
  b := a;
  a := a + 1;
  if a > (List.Count-1)  then a := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if napravlenie = 'R' then Vpravo;
  if napravlenie = 'L' then VLevo;
  if napravlenie = 'D' then Vniz;
  if napravlenie = 'U' then VVerx;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    vk_RIGHT: napravlenie:='R';
    VK_LEFT:  napravlenie:='L';
    vk_DOWN:  napravlenie:='D';
    VK_UP:    napravlenie:='U';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateListOfShape;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  List.Free;
end;

end.

Плз помогите, если не тяжело напишите пример,а то я уже все перепробывал с этой ее едой.

[spamer]

Люди ну кто то помогите плз.

[mutabor]

В случайную клетку помещай время от времени еду, проверяя не занята ли клетка чем-то другим, змеей или еще что у тебя там.