перемещение

[Ivannikov-Vlad]

Здравствуйте!
помогите пожалуйста

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Shape9: TShape;
Image1: TImage;
Image2: TImage;
Button2: TButton;
Edit2: TEdit;


procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
b,c:integer;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var

x:array[1..9]of integer;
y:array[1..9]of integer;
begin
b:=1;
c:=1;
Image1.Left:=Shape1.left;
Image1.top:=Shape1.top;
Image2.Left:=Shape1.left+20;
Image2.top:=Shape1.top+20;
x[1]:=shape1.left;
y[1]:=shape1.top;
x[2]:=shape2.left;
y[2]:=shape2.top;
x[3]:=shape3.left;
y[3]:=shape3.top;
x[4]:=shape4.left;
y[4]:=shape4.top;
x[5]:=shape5.left;
y[5]:=shape5.top;
x[6]:=shape6.left;
y[6]:=shape6.top;
x[7]:=shape7.left;
y[7]:=shape7.top;
x[8]:=shape8.left;
y[8]:=shape8.top;
x[9]:=shape9.left;
y[9]:=shape9.top;

end;



procedure TForm1.Button1Click(Sender: TObject);
var
z,n:integer;
a:string;
x:array[1..9]of integer;
y:array[1..9]of integer;
begin
n:=StrToInt(Edit2.text);
z:=random(6)+1;
Str(z,a);
Edit1.Text:=a;
if n=1
then
begin
b:=b+z;
image1.left:=x[b];
image1.top:=y[b]
end
else
begin
c:=c+z;
image2.Left:=x[c];
image2.Top:=y[c];
end;
end;


end.

отредактируйте код или помогите написать другой. цель такая
первоначально image находятся на shape1 и она должна перемещаться на такой shape[i] i- складывается из "индекса начального" shape и того числа который покажет edit1
edit2 показывает ( вводятся лично человеком) та картинка которая перемещается,