[icWasya]

вот к этому

Код:

  begin
    if PtInRect(a[i].BoundsRect, p)
    then
      a[i] := a[i];  // не понимаю эту строчку
      a[i].Items.add('Фото');
   end; 

надо добавить

Код:

for i:=0 to 5 do // раз
  begin
    if PtInRect(a[i].BoundsRect, p)
    then
      a[i] := a[i];  // не понимаю эту строчку - это для дебага
      a[i].Items.add('Фото');
      break; // два
   end;