Как работать с массивом компонентов

[dardreams]

Добрый день.
В первый раз решил создать массив из компонентов и вот в действиях запутался, кто нибудь скажите почему здесь происходит ошибка ?, Причем сообщение приходит с номером, а действие перекрашивание вызывает ошибку:

unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, Grids; 
 
type 
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
  Procedure PanelOnClick(Sender: TObject); 
    { Public declarations } 
 
  end; 
 
var 
       Form1: TForm1; 
       Panel: array[0..811] of Tpanel; 
       x,y,z:integer; 
implementation 
 
{$R *.dfm} 
 
 
procedure TForm1.FormCreate(Sender: TObject); 
var i,j:integer; 
begin 
y:=-20; 
Width:=585; 
Height:=586; 
for j:=0 to 32 do 
 begin 
  y:=y+20; 
  i:=0; 
  x:=0; 
for i:=0 to 28 do 
 begin 
  Panel[i]:=Tpanel.Create(Self); 
  Panel[i].Parent:=self; 
  Panel[i].Width:=20; 
  Panel[i].Height:=20; 
  Panel[i].Tag:=z; 
  Panel[i].Left:=x; 
  Panel[i].Top:=y; 
  Panel[i].OnClick:=PanelOnClick; 
  x:=x+20; 
  Inc(z); 
  end; 
 end; 
end; 
 
Procedure TForm1.PanelOnClick(Sender: TObject); 
var a:integer; 
begin 
a:=(Sender as TPanel).tag; 
ShowMessage(FloatToStr(a)); 
Panel[a].Color:=clBlack; 
end; 
end.

[Kotofff]

Перед циклом создания панелей поставь Z:=0;

И потом лучше так :

Procedure TForm1.PanelOnClick(Sender: TObject);
var a:integer;
begin
(Sender as TPanel).Color:=clBlack;
end;

[dardreams]

Сообщение от Kotofff

Перед циклом создания панелей поставь Z:=0;

И потом лучше так :

Procedure TForm1.PanelOnClick(Sender: TObject);
var a:integer;
begin
(Sender as TPanel).Color:=clBlack;
end;

Работает !!!!!!!!!!!
Спасибо большое ! ВЫ гений !

[s.Creator]

А все из-за того что у тебя

Panel[i]:=Tpanel.Create(Self);

i 33 раза принимает значение от 0 до 28
лучше как сказали перед циклом

z := 0;

и

Panel[z]:=...;

в цикле

[dardreams]

Как исправить ошибку ?
Я хотел чтобы на нажатие правой кнопкой мыши на Tpanel в caption записывалось значение 'X' но когда в обработчике событий пишу

for j:=1 to 32 do
 begin
  y:=y+15;
  x:=StringGridLeft.Width;
for i:=1 to 27 do
 begin
  Panel[i,j]:=Tpanel.Create(Self);
  Panel[i,j].Parent:=self;
  Panel[i,j].Width:=15;
  Panel[i,j].Height:=15;
  Panel[i,j].Tag:=z;
  Panel[i,j].Left:=x;
  Panel[i,j].Top:=y;
  Panel[i,j].OnClick:=PanelOnClick;
  Panel[i,j].OnDblClick:=Panel1DblClick;
  Panel[i,j].ShowHint:=true;
  Panel[i,j].PopupMenu:=PopupMenu1;
  Panel[i,j].Hint:=IntToStr(i)+'x'+IntToStr(j);
  p:=i;
  o:=j;
  x:=x+15;
  Inc(z);
  end;
 end;
end;
//Вырезано

procedure TfmMain.PopupMenu1Popup(Sender: TObject);
begin
(Sender As Tpanel).Caption:='x'
end;

end.

Ошибка Invalid Typecast
Я так понял что это не совсестимо, скажите как можно совместить чтобы можно было не только из действий панели это вызывать а и из других, напрмер вот PopupMenu
Я нашел выход просто сделал действие: procedure TfmMain.anelContextPopup()
Но мне все равно желательно знать как можно вызывать с других действий.

[s.Creator]

В данном случае событие

PopupMenu1Popup(Sender: TObject)

вызывает компонент PopupMenu1
Значит и Sender = PopupMenu1

Почитай про событие OnContextPopup панели

Panel1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);

[Kotofff]

Сапера что-ли пишешь ? ....

Попробуй добавь сообщение OnMouseUp :

Panel[i,j].OnMouseUp := PanelMouseUp;

И сама процедура :

procedure TForm1.PanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then // правая кнопка мыши
      (Sender as TPanel).Caption := 'X';
end;

[dardreams]

Нет пишу не сапера, а "Японскую картинку" если кто знает
Понимаете мне нужно научиться запускать именно с другого места я для примера взял popup можно хоть button лишь бы работало. Я хочу понять ка правильно работать с Sender я уже разобрался что

вызывает компонент PopupMenu1
Значит и Sender = PopupMenu1

Но как сделать чтобы работал именно мой код ?
Именно в этой процедуре:
procedure TfmMain.PopupMenu1Popup(Sender: TObject);
begin
(Sender As Tpanel).Caption:='x'
end;

end.

[s.Creator]

Сообщение от dardreams

Но мне все равно желательно знать как можно вызывать с других действий.

используй массив Panel[i,j] - ты же его создал

[dardreams]

s.Creator
Не понимаю как ? можете написать код ?

procedure TfmMain.PopupMenu1Popup(Sender: TObject);
begin
Panel[i,j].Caption:='x';
end;

Так не работает .