Выдает ошибку, и я вообще не могу понять в чем дело

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,objs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  //graphics
  plPic : array [0..2] of TBitmap;
  //objects
  Player : TPlayer;
  //booleans
  MoveL,MoveR,MoveU,MoveD : boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
DoubleBuffered := True;
MoveL := False;
MoveR := False;
MoveU := False;
MoveD := False;
//load graphics
for i := 0 to 2 do
begin
plPic[i] := TBitmap.Create;
plPic[i].LoadFromFile('img/player'+IntToStr(i)+'.bmp' );
plPic[i].Transparent := True;
 
end;
Player :=TPlayer.Create(300,500,plPic,2);
 
 
end;
 
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (key = VK_LEFT) then MoveL :=False;
    if (key = VK_RIGHT) then MoveR :=False;
    if (key = VK_UP) then MoveU :=False;
    if (key = VK_DOWN) then MoveD :=False;
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (key = VK_LEFT) then MoveL :=True;
    if (key = VK_RIGHT) then MoveR :=True;
    if (key = VK_UP) then MoveU :=True;
    if (key = VK_DOWN) then MoveD :=True;
    if (key = VK_ESCAPE) then Close;
 
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var rect: TRect;
begin
rect:= Bounds(0,0,600,600);
   Image1.Canvas.Brush.Color := clBlue;
    Image1.Canvas.FillRect(rect);
   //moving
   If MoveL then Player.moveLeft;
   If MoveR then Player.moveRight;
   If MoveU then Player.moveUp;
   If MoveD then Player.moveDown;
 
   player.nextFrame;
 
   Image1.Canvas.Draw(Player.getX,Player.getY,Player.getBitmap);
 
end;
 
end.