Создание динамических панелей

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure PanelColor(Sender: TObject); //1 êëèê-êðàñèì
    procedure PanelCaption(Sender: TObject);//2 êëèêà-çàãîëîâîê
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  pan:array of array of TPanel;
  n:integer;
implementation
 
{$R *.dfm}
procedure TForm1.PanelColor(Sender: TObject);
begin
if (Sender is TPanel) then (Sender as TPanel).Color:=clRed
end;
procedure TForm1.PanelCaption(Sender: TObject);
begin
if (Sender is TPanel) then (Sender as TPanel).Caption:=
inttostr((Sender as TPanel).Tag)
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or (n<1) then
 begin
  ShowMessage('Íåâåðíî ââåäåíî N');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
setlength(pan,n,n);
k := 0;
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  inc(k);
  pan[i,j]:=TPanel.Create(self);
  with pan[i,j] do
   begin
    Left:=20*(j+1);
    Top:=20*(i+1);
    Width:=20;
    Height:=20;
    Parent:=form1;
    Tag:=k;
    Name:='pan'+inttostr(Tag);
    Caption:='';
    OnClick:=PanelColor;
    OnDblClick:=PanelCaption;
   end;
  end;
 
end;
 
end.