Dynamiczne TImage

Witam.
Chciałbym dynamicznie stworzyć x Timage, po kliknięciu na któryś z nich wykonała by się procedura y + potrzebuję znać nazwę klikniętego TImage.

Bardzo proszę o pomoc.

with TImage.Create(nil) do
begin
  Parent:= Form1;
  OnClick:= Klik; // ponizej definicja tej procedury..
  Height:= 100;
  Width:= 100;
  Name:= 'ImageXX'; // Tworzysz sobie np jakas globalna zmienna integer i wmiejsce XX podstawiasz jej wartosc automatycznie zwiekszajac ja, zeby kazdy nowy komponent mial inna nazwe.. 
  //...
  //inne parametry
  Show;
end;

procedure Klik(Sender: TObject);
begin
  ShowMessage(TImage(Sender).Name); //wyswietla komunikat z nazwa Image'a którego kliknąłeś
end;

Pisane z głowy

mniej wiecej demonstruje to chcesz zrobic..

Bardzo dziękuję, dokłądnie o to chodziło.

A ja się teraz spytam : co ze zwalnianiem pamięci??