Можно так попробовать. В событии OnContextPopup ваших картинок прописать чтото типа такого:
Код:
procedure TForm35.Image1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
PopupMenu1.Items[0].Caption := 'Картинка №'+TControl(Sender).Name;
end;