компонент карта/план с подвижными маркерами

Image1->Canvas->MoveTo(100,0);
Image1->Canvas->LineTo(100,200);

this->Assign(this->BitMap);  // где  this -наш Image, BitMap  - Graphics::TBitmap
Canvas->Ellipse(...);  // Перерисовка с новыми коодинатами

class PACKAGE TmyPanel : public TPanel    
{
private:
   TImage *Im;
protected:
public:
   TImage *Marker;
        __fastcall TmyPanel(TComponent* Owner);
        __fastcall ~TmyPanel() {delete Im,Marker; };
__published:
};

__fastcall TmyPanel::TmyPanel(TComponent* Owner)
        : TPanel(Owner)
{
Width = 400;
Height = 400;
 
Im = new TImage(this);
Im->Parent = this;
Im->Align = alClient;
Im->Stretch = true;
 
Im->Picture->LoadFromFile("Фон.bmp");
 
Marker = new TImage (this);
Marker->Parent = this;
 
Marker->Canvas->Brush->Color = clLime;
Marker->Canvas->FillRect(Marker->BoundsRect);
Marker->Canvas->Pen->Color = clRed;
Marker->Width = 20;
Marker->Height = 20;
Marker->Canvas->Ellipse(0,0,20,20);
Marker->Transparent = true;
 
Marker->Left= Width/2;
Marker->Top= Height/2;
}

myPanel1->Marker->Left=...;
myPanel1->Marker->Top=...;

class PACKAGE TmyPanel : public TPanel
{
private:
   TImage *Im;
 
protected:
public:
      vector <TImage*> Marker;
        __fastcall TmyPanel(TComponent* Owner);
        TImage* __fastcall AddMarker();
        __fastcall ~TmyPanel();
__published:
};

//---------------------------------------------------------------------------
__fastcall TmyPanel::TmyPanel(TComponent* Owner)
        : TPanel(Owner)
{
Width = 400;
Height = 400;
 
Im = new TImage(this);
Im->Parent = this;
Im->Align = alClient;
Im->Stretch = true;
 
Im->Picture->LoadFromFile("Ôîí.bmp");
}
//---------------------------------------------------------------------------
TImage* __fastcall TmyPanel::AddMarker()
{
TImage *NewMarker = new TImage (this);
NewMarker->Parent = this;
 
this->Marker.push_back(NewMarker);
 
NewMarker->Canvas->Brush->Color = clLime;
NewMarker->Canvas->FillRect(NewMarker->BoundsRect);
NewMarker->Canvas->Pen->Color = clRed;
 
NewMarker->Width = 20;
NewMarker->Height = 20;
 
NewMarker->Canvas->Ellipse(0,0,20,20);
NewMarker->Transparent = true;
 
NewMarker->Left= Width/2;
NewMarker->Top= Height/2;
 
return NewMarker;
}
//---------------------------------------------------------------------------
__fastcall TmyPanel::~TmyPanel()
{
delete Im;
for (int i=0;i<Marker.size();i++) delete Marker[i];
};
//---------------------------------------------------------------------------

TForm1 *Form1;
TmyPanel *Panel;
int n;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Panel= new TmyPanel(this);
Panel->Parent = this;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Panel->AddMarker();
Panel->Marker[n]->Left = 40*n;
Panel->Marker[n]->Top  = 40*n;
n++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete  Panel;
}
//---------------------------------------------------------------------------