координаты мыши на канве заносятся в массив

void __fastcall TChild::ImageMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Caption = "Положение курсора : X = "+ IntToStr(X) + ", Y = " + IntToStr(Y);
 
if (Shift.Contains(ssLeft))
{
        Image->Canvas->LineTo(X,Y);
        Image->Canvas->MoveTo(X,Y);
 
    int A[1][2];
        A[0][0]=X;
        A[0][1]=Y;
    
 
        ListBox1->Items->Add( A[0][0] );
        ListBox2->Items->Add( A[0][1] );
 
       return;
}

int idx=0;
int koord[1000][1000];
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (Button==mbLeft)
        {
                koord[0][idx]=X;
                koord[1][idx]=Y;
                Memo1->Lines->Add("X: "+IntToStr(koord[0][idx])+ " Y: "+IntToStr(koord[1][idx]));
                idx++;
        }
}

int x=0,y=0;
const m=2,n=1000;
int j;
int mas[m][n];
void __fastcall TDimonov::ImageMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Caption = "Положение курсора : X = "+ IntToStr(X) + ", Y = " + IntToStr(Y);
if (Shift.Contains(ssLeft))
{
 Image->Canvas->LineTo(X,Y);
 
 mas[0][j]=X;
[B][U] mas[1][j]=Y;[/U][/B]
 Memo->Lines->Add("X: "+IntToStr(mas[0][j])+ "  Y: "+IntToStr(mas[1][j]));
 j++;
 }
}

int x=0,y=0;
const m=2,n=1000;
int j;
int mas[m][n];
void __fastcall TDimonov::ImageMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Caption = "Положение курсора : X = "+ IntToStr(X) + ", Y = " + IntToStr(Y);
if (Shift.Contains(ssLeft))
{
 Image->Canvas->LineTo(X,Y);
 
 mas[0][j]=X;
 mas[1][j]=Y;
 Memo->Lines->Add("X: "+IntToStr(mas[0][j])+ "  Y: "+IntToStr(mas[1][j]));
 j++;
 }
}