Evento OnClick em imagem criada dinamicamente.

Eu tenho uma imagem que é criada dinamicamente. Segue abaixo o codigo:

Image1 := TImage.Create(Self);Image1.Parent := Panel;Image1.Top := 5;Image1.Left := 24;Image1.AutoSize := true;Image1.Picture.LoadFromFile('c:\LiGi\imagens\ico_tela.bmp');Image1.Hint := 'Abrir esta ficha';Image1.ShowHint := true;Image1.OnClick := ClickDinamico('Teste de click');Se vocês repararem no fim do código, tem um evento OnClick que chama um procedimento chamado ClickDinamico('Teste de click');

Porém não funciona!

Esse é o procedimento do ClickDinamico();

>
procedure TfrmPesquisar.ClickDinamico(rotulo: string);

begin

 ShowMessage( rotulo );

end;

O procedimento foi declarado em TYPE e mesmo assim não funcionou.

Essa é a imagem do erro ao compilar

/applications/core/interface/imageproxy/imageproxy.php?img=http://www.phpmundi.com.br/imagens/evento.JPG&key=49683335afe865cf6bd85fd1aeb35a669e70398cb2a1a6e399f5dabc419491a4" alt="Imagem Postada" />

O que está errado?

Abraços