Перемещение созданного объекта в Canvas

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
 
        static int x=Image1->Width/2;
        static int y=Image1->Height/2;
        switch(Msg.message)
        {
            case WM_KEYDOWN:
 
                    switch (Msg.wParam)
                        {
                    case VK_LEFT:
                                x-=10;
                                    Image1->Canvas->FillRect(TRect(0,0,Image1->Width,Image1->Height));
                                Image1->Canvas->Ellipse(x-50,y-50,x+50,y+50);
                            break;
 
                            case VK_RIGHT:
                                x+=10;
                                    Image1->Canvas->FillRect(TRect(0,0,Image1->Width,Image1->Height));
                                Image1->Canvas->Ellipse(x-50,y-50,x+50,y+50);
                            break;
 
                            case VK_UP:
                                y-=10;
                                    Image1->Canvas->FillRect(TRect(0,0,Image1->Width,Image1->Height));
                                Image1->Canvas->Ellipse(x-50,y-50,x+50,y+50);
                            break;
 
                            case VK_DOWN:
                                y+=10;
                                    Image1->Canvas->FillRect(TRect(0,0,Image1->Width,Image1->Height));
                                Image1->Canvas->Ellipse(x-50,y-50,x+50,y+50);
                            break;
                        }
                        break;
        }
 
}