Как сделать простейшую систему управления обьектом на форме

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        POINT p;
        GetCursorPos(&p);
 
        POINT pp;
        pp.x = Label1->Left;
        pp.y = Label1->Top;
        ::ClientToScreen(Handle, &pp);
 
        int iSpeed = 1;
 
        if ( pp.x < p.x ) Label1->Left += iSpeed;
        else if ( pp.x > p.x ) Label1->Left -= iSpeed;
        if ( pp.y < p.y ) Label1->Top += iSpeed;
        else if ( pp.y > p.y ) Label1->Top -= iSpeed;}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int positionX, positionY;
int size = 20;
Graphics::TBitmap*background;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
clearScreen();
 onMove();
 background->Canvas->Rectangle(positionX, positionY,positionX+size, positionY+size) ;
 Form1->Canvas->Draw(0,0,background);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
positionX = 100;
positionY = 300;
background = new Graphics::TBitmap(); //Çàäíèé áóôôåð
background->Width=Form1->Width;
background->Height=Form1->Height;
}
//---------------------------------------------------------------------------
void TForm1::gravity(){
        positionY+=5;
}
 
bool up,down,right,left;
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key == 'W')up=true;
if(Key == 'S')down=true;
if(Key == 'D')right=true;
if(Key == 'A')left=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key == 'W')up=false;
if(Key == 'S')down=false;
if(Key == 'D')right=false;
if(Key == 'A')left=false;
}
//---------------------------------------------------------------------------
void TForm1::onMove(){
if(!up)gravity();
if(up && positionY>5)positionY-=5;
if(down && positionY + size < Form1->Height - size )positionY+=5;
if(right && positionX + size < Form1->Width - size)positionX+=5;
if(left && positionX>5)positionX-=5;
}
void TForm1::clearScreen(){
background->Canvas->Brush->Color=clWhite;
background->Canvas->Rectangle(0,0,Form1->Width,Form1->Height);
}