.Create Objects auf Klick

[firespawn]

Hallo,
ich habe nun 6 Bilder erschaffen mit .Create ist es möglich nun das ich die Bilder anklicken kann ?
Also sonst heißt es ja bspweise procedure TForm1.Image1Click(Sender: TObject);

Delphi-Quellcode:

var bilder: array[1..6] of images
begin
procedure TForm1.Bilder[1]Click(sender:TObject);
begin
dasdöasdlökaö
end;

geht leider nicht

Vielen Dank für die Antwort
Fire