Array aus Labeln mit Events

[wovo]

Hallo!
Ich möchte ein Array aus Labeln zur Designzeit erzeugen.
Bisher habe ich dazu u.a.:

Code:

var
  Form1: TForm1;
  labs : array[1..4,1..12] of TLabel;

procedure TForm1.FormCreate(Sender: TObject);
var i,j : integer;
begin
 for i := 1 to 4 do
  for j := 1 to 12 do
  begin
   labs[i,j]         := TLabel.Create(Form1);
   labs[i,j].Parent  := Form1;
   labs[i,j].Left    := 144+(i-1)*48;
   labs[i,j].Top     := 160+(j-1)*48;
   labs[i,j].visible := true;
   labs[i,j].color   := clGray;
   labs[i,j].caption := '     ';
   labs[i,j].font.size := 15;
  end;

Das funktioniert.
Nun möchte ich(per for-Schleifen)jedem dieser Label zur Designzeit
einen Event zuordnen der Art
OnClick labs[i,j]Click ,
damit so etwas erzeugt wird wie z.B.

Code:

procedure TForm1.Labs[1,1]Click(Sender: TObject);
begin
 if click = 3 then labs[1,1.color := clRed;

Geht so etwas in Delphi?

Dank für Hilfe im voraus!
wovo