Вывод массива изображений TBitMap на форму для дальнейшей работы

[yachsmit]

Добрый день! Начал изучать Delphi и столкнулся с таким вопросом (код)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  imgmass: array [0..1] of TBitmap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    imgmass[0]:=TBitmap.Create;
    imgmass[0].LoadFromFile('C:\kartinka.bmp');
    Canvas.Draw(0,0,imgmass[0]);
end;

end.

данная программа выводит определенную картинку из массива на экран, но понять как дальше ее обрабатывать (например, присвоить ей imgmassClick) я не могу. Помогите пожалуйста. Как заставить это изображение "нажиматься"?

[Stilet]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  imgmass: array [0..1] of TBitmap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    imgmass[0]:=TBitmap.Create;
    imgmass[0].OnClick:=Image1Click;
    imgmass[0].LoadFromFile('C:\kartinka.bmp');
   
    Canvas.Draw(0,0,imgmass[0]);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 ShowMessage('Кликанули по картинке');
end;

end.

Ферштейн?

[yachsmit]

Нет, пишет ошибку [Error] Unit1.pas(32): Undeclared identifier: 'OnClick'

[Аватар]

TBitmap не имеет обработчика событий OnClick. Нужно с TImage работать

[InternetStranger]

Событие "Кликабельности" вначале нужно создать. Дабл-кликом по Image1 (который загодя нужно положить на форму). Среда сама предложит вписать код для обработчика onClick.
ps: Загляните после этого в закладку Events Объект-инспектора.

[8adim]

Если при создании компонента-TImage присваивать её еще имя и событие OnClick, то тогда вообще всё просто получается.
Например, проще всего можно обращаться вот так
(findComponent(sCompName) as TImage)

[Stilet]

TBitmap не имеет обработчика событий OnClick. Нужно с TImage работать

Ой... Точно... Это я затупил