zweidimensionales Array von Shapes durch button färben

[DeddyH]

Hoffentlich denke ich jetzt richtig:

Delphi-Quellcode:

procedure TForm1.mybuttonclick(Sender: TObject);   ////
Var
  y : integer;
  x: integer;
  Helfer : TButton;
  WasWhite: Boolean;
begin
  Helfer := TButton(Sender);
  x := high(myshapes);
  y := Helfer.Tag;
  repeat
    WasWhite := false;
    If myshapes[x][y].Brush.Color = clwhite then
      begin
        myshapes[x][y].Brush.Color := clyellow;
        WasWhite := true;
      end   
    else
      x := x-1;
  until WasWhite or (x < 0);
end;