[Ruz]

Я читал где-то про подобное решение, но так и не понял, как его реализовать? У меня массив из TImage они создаются программно. Быстро двигаются и часто уничтожаются.

Я не понял, а что мне писать вместо Image1Click?

Код:

Bird[i].Tag:= i;

Код:

procedure TForm1.Image1Click(Sender: TObject);
var k:integer;
begin
k:=(Sender as TImage).Tag;
 
Case k of
1:ShowMessage('Вы нажали на Img с номером 1');
2:ShowMessage('Вы нажали на Img с номером 2');
end;
 
end;