Procedure skal køre når der klikkes på et TImage komponent

Hej.

Jeg har et TImage komponent, og et array bestående af en record (måske en ny klasse?) der repræsenterer en knap på TImage'et. Når der bliver klikket på TImage'et så kører TImage.OnClick og i den funktion går jeg igennem mit array og ser om en knap's koordinater passer med der hvor musen er lige nu. Den del er såmænd nem nok, og den har jeg ingen problemer med.

Men problemet er at jeg også vil beskrive en procedure i mit record (måske klasse?) som jeg så kan få til at køre i TImage.OnClick.

Lad mig forklare i en slags pseudo kode.

Mit record:
  TMyButton = record
    x: integer;
    y: integer;
    width: integer;
    height: integer;
    NormalPic: TJPEGImage;
    MouseOverPic: TJPEGImage;
    MouseClickPic: TJPEGImage;
    procedure DoThisThingWhenClicked();
  end;

Mit array:
var
  MyButtonArray: array of TMyButton;


Den funktion jeg vil bruge når jeg indsætter et element i mit array:
procedure AddToMyButtonArray(x,y,width,height: integer;
                            PicNormal, PicMouseOver, PicMouseClick: TJPEGImage;
                            someProc());
begin
  SetLength(MyButtonArray);
  MyButtonArray[high(MyButtonArray)].x := x;
  MyButtonArray[high(MyButtonArray)].y := y;
  MyButtonArray[high(MyButtonArray)].height := height;
  MyButtonArray[high(MyButtonArray)].width := width;
  MyButtonArray[high(MyButtonArray)].NormalPic := PicNormal;
  MyButtonArray[high(MyButtonArray)].MouseOverPic := PicMouseOver;
  MyButtonArray[high(MyButtonArray)].MouseClickPic := PicMouseClick;
  MyButtonArray[high(MyButtonArray)].MouseClickPic := PicMouseClick;
  MyButtonArray[high(MyButtonArray)].DoThisThingWhenClicked() := someProc();
end;

Og her er så den funktion der tjekker om et billede er blevet klikket på. Har undladt at tjekke om det er blevet klikket, fordi jeg ikke har problemer med det og den del forstår jeg godt:
procedure TForm1.Image1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to high(MyButtonArray) do
  begin
    if {the current coordinates is within this button} then
    begin
      MyButtonArray[i].DoThisThingWhenClicked();
    end;
  end;
end;

Så, er der nogen der kan hjælpe?
Det er helt fint hvis løsningen er langt fra det jeg har lagt op til her. Men generelt, have nogle billeder (som knapper) på en TImage og så tjekke om de bliver klikket.

Mvh, Tobias