Onclick bei dynamischen Labels

[Sunlight7]

Oder so:

Delphi-Quellcode:

For x:=0 to ... do
   Labels[i].OnClick := MyOnClick;

...

Procedure TForm1.MyOnClick(Sender: TObject);
Begin
  If Sender=Labels[5] then
    ShowMessage('Volltreffer!') else
      ShowMessage('Falsches Label angeklickt, Versuchs nochmal.');
End;