Hvordan laver man en onclick-procedure på et TImage.Create?

Hej Eksperter.

Jeg opretter et billed med koden:

  with TImage.Create(self) do
  begin
    Left:=Screen.Width div 2;
    Top:=Screen.Height div 2;
    Width:=17;
    Height:=17;
    Name:='soldier'+IntToStr(number);
    Picture.LoadFromFile('soldierl.bmp');
    Stretch:=true;
    Transparent:=true;
    Parent:=self;
  end;

Men hvordan gør jeg, så en kode bliver kørt, når der f.eks. klikkes på det, nu hvor det egentlig ikke eksisterer i min form fra start?

Mvh.
W13