Komponent dynamiczny i procedury

Problem mam taki :
Utworzyłem tablicę

Obraz:   Array[0..9] of TImage;

Dalej tworzę dynamincznie komponenty w tablicy i przypisuję do każdego zdarzenie onclick

Obraz[i].OnClick := ObrazClick;

teraz w procedurze

procedure T_Dyplom.ObrazClick(Sender: TObject);
begin
     Podglad._podglad.Show;
     Podglad._podglad.pdObr.Picture.Assign(Obraz[i].Picture.Bitmap);
end;

wyświetlam obrazek powiększony w nowej formie.
Ale mam problem gdyż po kliknięciu w obrazek, którykolwiek, zawsze pojawia mi się obrazek z komponentu który reprezentuje zmienna <font color="blue">i</span>
Czyli zawsze obrazek z ostaniego utworzonego komponentu. Moje pytanie:
W jaki sposób rozpoznać na którym obrazku zostało dokonane kliknięcie i wten sposób wyświetlenie go na drugiej formie?

Pozdrawiam.
Przeszukałem forum łącznie 73 topiki i nieznalazłem nic co mogło by mi pomóc.
Dla niedowiarków :
http://4programmers.net/Forum/search.php?mode=3&q=stworzyć%20komponent&f=1&sort=post_time&sort_by=DESC&p=0 [stuk]

przecież dostajesz parametr sender :>
a senderem jest Twój obrazek, więc

if sender is TImage then (sender as TImage).whatever := whatever.

przecież dostajesz parametr sender :>
a senderem jest Twój obrazek, więc

if sender is TImage then (sender as TImage).whatever := whatever.

A możesz bardziej łopatologicznie [wstyd]

Dzięki już poprawłem banalne
A wystarczyło tylko:

if sender is TImage then Podglad._podglad.pdObr.Picture.Assign((sender as TImage).Picture.Bitmap);

[browar]