[Мяфк]

Большое спасибо.
MyImageClick; - вместо этого что писать, тэг, нэйм?

Как я понял, создаю имэджи в цикле.

Код:

for j:=1 to 10
        image:=Timage.Create(Form1);
        image.Top:=160+90*j;
        image.Left:=2;
        image.Height:=73;
        image.Width:=105;
        image.Enabled:=true;
        image.Visible:=true;
        image.Parent:=form1;
        image.Name:='Imain'+Inttostr(j);
        image.tag := j;
        image.Picture.LoadFromFile('E:\Проекты\База\image\'+Inttostr(Items[k].id)+'.gif');
end;

Далее делаю процедуру, что-то типа:

Код:

procedure Imageclick (tag:integer);
begin
if tag=image.tag then
.....
  end;

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