Обработка событий OnClick для массива TImage

[yachsmit]

Добрый день. Я совсем новичек в программировании, поэтому возник вопрос.

Я динамически создаю несколько TImage из Imagelist. Как самым простым и надежным способом создать один обработчик типа OnClick для этого массива кнопок. В примере рисунков два, но на самом деле их 30, думаю будет глупо для каждого из рисунков писать свой OnClick. Пусть хоть при нажатии на одну кнопку пишет "Hello world!" а на другую "sdfsdfsd". )

Много инфы посмотрел по этому поводу, однако в основном там описана эта задача с большими лишними мне нагромождениями из которых я пытался выудить хоть какую нибудь нужную строку, но, увы, не получилось ( Помогите разобраться пожалуйста. Вот код.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ImageList1: TImageList;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
card: array [1..2] of TImage;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=1 to 2 do
begin
card[i]:=TImage.Create(form1);
card[i].Parent:=form1;
card[i].Height:=85;
card[i].Width:=85;
card[i].Top:=8;
card[i].Left:=8+(i-1)*88;
Imagelist1.GetBitmap(i-1,card[i].Picture.Bitmap);
end;
end;

end.

[phomm]

Добавить в форму

procedure ImageClick(Sender: TObject);

Реализовать его так (тут уж сами смотрите как там понадобится):

procedure Tform1.ImageClick(Sender: TObject);
begin
  case (sender as Timage).tag of
  1: showmessage('hello world');
  2: showmessage('sdfsdfsd');
  end;
end;

при создании имейджей добавить:

card[i].Parent := form1;
card[i].tag := i;
card[i].onclick := Imageclick;

и проверять работу )

На будущее совет - оформляйте код кнопочкой #

[chertovich]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Images: array of TImage;
begin
  SetLength(Images, 30);

  for I := 0 to High(Images) do
  begin
    with Images[I] do
    begin
      Create(Self);
      Parent := Self;
      Picture.LoadFromFile('Путь/' + IntToStr(I) + '.jpg');  // Или другая организация
      OnClick := ImageClick(Self);
    end;
  end;

end;

Что-то типа такого

[yachsmit]

Попробовал, как написал phomm и, ура, все получилось. И с первого раза ) Просто никак не мог допереть до простейшего card[i].onclick := Imageclick. Спасибо!