анимация стрелки(C++ Builder)

[MrMoriman]

необходимо реализовать анимацию стрелки:
она попадает в яблоко и вылетает сообщение
однако при движдении не закрашивается старая стрелка, ребят подскажите, как доделать а то хз уже(((

код

/---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

int start=100;          // координата начала стрелы
const int len=100;      // длина стрелы
const int dx = 10;      // приращение
const int x=500,y = 100; // x,y-координаты центра "яблока"
const int rad=30;       // радиус "яблока"

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::drawApple(TObject *Sender)
{
Canvas->Brush->Color = clRed;
Canvas->Pen->Color = clRed;
Canvas->Ellipse(x-rad,y-rad,x+rad,y+rad);
Canvas->Ellipse(x-rad-12,y-rad,x+rad-12,y+rad);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::drawArrow(TObject *Sender)
{

Canvas->Pen->Color = clBlack;
Canvas->MoveTo(start,y);
Canvas->LineTo(start,y-10);
Canvas->LineTo(start+10,y);
Canvas->LineTo(start,y+10);
Canvas->LineTo(start,y);
Canvas->LineTo(start-len,y);

}
//---------------------------------------------------------------------------


void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        drawApple(Form1);            // нарисовать яблоко

        drawArrow(clWhite);  // нарисовать старую цветом фона

        start+=dx;              // передвинуть

        drawArrow(clBlack);     // нарисовать новую

        if(start==(x-50))            // проверка на попадание
        {
                Timer1->Enabled = false;
                ShowMessage("Попасть в ПГУ - попасть в яблочко!!!");
        }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Shot(TObject *Sender)
{
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Timer1->Interval=StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------

[MrMoriman]

ой, прошу прощения... можно не помогать, сделал сам))) мож но удалить тему)))

[Stilet]

У меня нет борладСи так что просто скажу.
Поменяй процедуру

void __fastcall TForm1::drawArrow(TObject *Sender)
{
Canvas->Pen->Color = <Тут цвет фона>;
Canvas->MoveTo(start,y);
Canvas->LineTo(start,y-;
Canvas->LineTo(start,y);
Canvas->LineTo(start,y);
Canvas->LineTo(start,y);
Canvas->LineTo(start-len,y);

Canvas->Pen->Color = clBlack;
Canvas->MoveTo(start,y);
Canvas->LineTo(start,y-10);
Canvas->LineTo(start+10,y);
Canvas->LineTo(start,y+10);
Canvas->LineTo(start,y);
Canvas->LineTo(start-len,y);

}

Смысл в том чтоб по старым координатам отрисовать стрелку цветом фона - она исчезнет