Програмное создание объекта

[pavellyba]

Спасибо. И последнее, как теперь сделать, чтоб когда кликаешь по этому объекту, вызывалась процедура.

[evg_m]

Image[0].OnClick := Self.MyImageClick;

TForm1 =class(TFOrm)

private
  procedure MyImageClick(sender: TObject);


procedure TForm1.MyImageClic(sender: TObject);
begin
  ShowMessage('Зачем вы это сделали');
end;

[pavellyba]

А как сделать привязку к индексу?

[GunSmoker]

// При инициализации:
for X := 0 to High(Image) do
  Image[X].Tag := X;

...

procedure TForm1.MyImageClic(sender: TObject);
begin
  (Sender as TImage).Canvas.Draw(...); 
  // или:
  (Sender as TImage).Tag //  <- индекс
  // иными словами
  Image[(Sender as TImage).Tag] эквивалентно (Sender as TImage)
end;

[pavellyba]

Спасибо, разобрался=)