Появление текста при нажатии на правую кнопку мыши

int j=0;
int a;
int A[2][1000];
void __fastcall TForm6::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
if (Button == mbLeft)
{A[0][j]=X;
 A[1][j]=Y;
}
else {
Canvas->TexOutW(A[0][j],A[1][j],a;
a++;
}
}

TForm1 *Form1;
int j = 0;
int a = 0;
int A[2][1000];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(Button == mbLeft)
{
A[0][j]=X;
A[1][j]=Y;
Memo1->Lines->Add("X="+IntToStr(A[0][j])+" Y="+IntToStr(A[1][j]));
j++;
}
else
{
Canvas->TextOut(X, Y, a);
a++;
}
}

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int j = 0;
int a = 0;
int A[2][1000];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(Button == mbLeft)
{
A[0][j] = X;
A[1][j] = Y;
Memo1->Lines->Add("X="+IntToStr(A[0][j])+" Y="+IntToStr(A[1][j]));
j++;
}
else//RightButton or CenterButton
{
if(a < j)
Canvas->TextOut(A[0][a], A[1][a], "X="+IntToStr(A[0][a])+" Y="+IntToStr(A[1][a]));
a++;
}
}
//---------------------------------------------------------------------------