Shape OnClick Event?

[KahPee]

Hallo ich habe die gleiche Situation nur dass es sich bei mir um ein Bild handelt (Timage).

Allerdings kriege ich as nicht wie oben beschrieben hin...

Delphi-Quellcode:

type
  TForm1 = class(TForm)
   public
    { Private-Deklarationen }
    procedure OnImageClick(Sender: TObject);
  end;

//

procedure TForm1.OnClick(Sender: TObject); 
begin
  showmessage('test'); 
end;

// die Prozedur dem Event zuweisen:
fields[1,1].pic.onclick := OnImageClick; //fields ist ein zweidimensionaler Array von einem record mit der Variable pic (Timage)
//hier die fehlermeldung dieser Zeile:  Undefinierter Bezeichner: 'OnImageClick'

weis da jemand weiter?