Выдает ошибку, не понимаю в чем проблема.

http://s1.uploadpics.ru/images/ZJyPHZAM5e.jpg

Код.
unit Unit1;1

interface

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

type
TForm1 = class(TForm)
shape1: TShape;
tmr1: TTimer;
shape2: TShape;
procedure FormCreate(Sender: TObject);
procedure shape2ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
private
procedure shar();
{ Private declarations }
public
{ Public declarations }
end;

var // ob'evlenie peremennih
Form1: TForm1;
PosX,PosY,VelX,VelY: Single;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); // ob'evlenie skorosti
begin
Posx:=1;
PosY:=1;
VelX:=2;
VelY:=3;
end;

procedure TForm1.shar; // dvizhenie shara
begin
PosX:=PosX+VelX;
PosY:=PosX+VelY;
if PosX > ClientWidth -Shape1.Width then
VelX := -velX;

if PosX > 0 then
VelX := -velX;

if PosY > ClientHeight -Shape1.Width then
VelY := -velY;

if PosY > 0 then
VelY := -velY;

Shape1.Left:=Round(PosX);
Shape1.Top:=Round(PosY);
end;

procedure Tform1Timer(Sender: TObject); //timer vizov peremennoy
begin
shar;
end;
end;

procedure TForm1.shape2ContextPopup(Sender: TObject; MousePos: TPoint; //sozdanie upravlenia paneley
var Handled: Boolean);
begin
shape2.Top:=mouse.cursorPos.Y -Form1.ClientOrigin.Y;
end;

end.