1:
2:
3:
4:
5:
6:
7:
8:
9:

    void MainFormLoad(object sender, System.EventArgs e)
    {
      pictureBox1.DoubleClick += new EventHandler(pictureBox1_DoubleClick);
    }
    
        void pictureBox1_DoubleClick(object sender, EventArgs e)
        {
          MessageBox.Show("Wer klickt mich?");
        }                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm.PictureBoxAdd;
var
  l:integer; 
begin
  .
  .
  .
  AoPB[l].Tag:=l;  // In Tag wird die Eintragsnummer geschrieben, ist für die spätere Auswertung notwendig
  Include(AoPB[l].DoubleClick, Self.SelClick);  // AoPB ist ein Array of PictureBox - hier wird die Procedure SelClick mit der PictureBox verknüpft
end;

procedure TForm.SelClick(sender: System.Object; e: System.EventArgs);
var
  i:integer;
begin
  i:=Integer((sender as PictureBox).Tag);  //der Tag-Wert wird in i gespeichert
  MessageBox.Show('From Image:'+i.ToString,'Dbl_Click');  // MessageBox zeigt Nummer der geklickten PictureBox an
end;