procedury w dynamicznych komponentach

Witam, dwa proste pytanka:

1. Czy ktos zna dobry komponent do wyswietlania obrazow z rozszerzeniem .png ?

2. Tworze dynamiczny komponent:

var

Klik : TButton;
..
..
Klik := TButton.create(self);
Klik.parent := self;
..
i chce aby po zdarzeniu OnClick dynamicznego butona wykonala sie procedura, robie tak:

procedure KlikClick(Sender: TObject);

po implementation

procedure TForm1.KlikClick(Sender: TObject);
begin
showmessage('Nie dziala mi to :/');
end;

i nie bardzo dziala :(. Prosze o jakies wskazowki.

//Ale ze mnie LOL, takie proste ! Chyba sie zalamie :P Thx Wolverine

Klik.OnClick := KlikClick;

http://pngdelphi.sourceforge.net/pngimage143.zip

Thx [browar]