Dynamisk event

BUILDER 5.0

Jeg lader et lille icon blive oprettet dynamisk,
men nu vil jeg gerne lave en OnClick event på dette lille icon hvordan gør man det dynamisk ??
Skriver man bare selv metoden eller hva??
Man skal vel både lave eventen Image->OnClick og metoden ImageOnClick()
Hvordan gør man det dynamisk.

Jeg har dette end til nu

Image=new TImage(Owner);
    BogImage->Picture->LoadFromFile("Billede.ico");
Image->Height=30;
Image->Width=30;
Image->Parent=GroupBox3;
Image->Visible=true;
Image->Left=5;
Image->Top=15;
Image->DragKind=dkDock;
Image->DragCursor=crDrag;
Image->DragMode=dmAutomatic;