zweidimensionales Array von Shapes durch button färben

[Klausi0815]

Hallo,
ich habe ein zweidimensionales dynamisches Array of Tshape erstellt. Dazu habe ich auch dynamisch Buttons erstellt (array of Tbutton). Jetzt möchte ich per onclick auf den Button das letzte Shape der Reihe färben, wenn es nicht schon gefärbt ist. meine Procedure klappt zwar, aber es werden immer mehrere Shapes gefärbt, aber es soll immer nur das letzte gefärbt werden, wenn es weiß ist. ich hoffe es war verständlich.

Ich hoffe ihr könnt mir sagen was ich an der procedure ändern soll, damit es klappt.
Danke schonmal

Delphi-Quellcode:

 Procedure zeichnen;
 var x,y,m,breite,hoehe,links :integer;

  begin

  i:=0;
  Breite := 60;
  Hoehe  := 60;

  Panel1:=TPanel.Create(Form1);
  panel1.Parent:=Form1;
  panel1.Top:=50;
  panel1.Left:=50;
  panel1.Height:=hoehe*k+k*2;
  panel1.Width:=breite*p+p*2;
  panel1.Color:=clblue;


  setlength(Myshapes,k,p);
     for x:= 0 to high(Myshapes) do
    begin
  for y:=0 to high(Myshapes[x]) do
  begin
   Myshapes[x][y]:=TShape.Create(Panel1);
   myshapes[x][y].Shape:=stCircle;
   myshapes[x][y].Parent:=Panel1;
   myshapes[x][y].Top:=x*(Breite+2);
   myshapes[x][y].left:=y*(Hoehe+2);
   myshapes[x][y].width:= breite;
   myshapes[x][y].height:=hoehe;
   myshapes[x][y].Brush.Color:=clwhite;
   myshapes[x][y].OnMouseDown:=Form1.klick;
   end;
    end;
      setlength(Mybutton,p);
 links:=1;
 for m:= 0 to high(Mybutton) do
  begin
   mybutton[m]:=TButton.Create(Form1);
   mybutton[m].Parent:=Form1;
   mybutton[m].top:=25;
   mybutton[m].left:=62*links-12;
   mybutton[m].width:=62;
   mybutton[m].height:=25;
   mybutton[m].Font.Size:=8;
   mybutton[m].caption:='hier';
   mybutton[m].Tag:=i;
   inc(links);
   inc(i);
   mybutton[m].onclick:=form1.mybuttonclick;
   end;

      end;

procedure TForm1.mybuttonclick(Sender: TObject);   //// 
Var
n :integer;
y : integer;
x: integer;
Helfer : TButton;
begin

Helfer := TButton(Sender);
x:=high(myshapes);
y:=Helfer.Tag;
for n:=0 to high(mybutton) do
begin
If myshapes[x][y].Brush.Color = clwhite then
myshapes[x][y].Brush.Color:=clyellow else
x:=x-1;
if x<0 then x:=0;
end;