dynamisch ein onclick event erzeugen ?

[agm65]

hi leute ich stecke hier fest. ich möchte dynamisch ein on click event erstellen (je nach anzahl meine arrays)

Delphi-Quellcode:

procedure tfrmMain.DoMessageClick(Sender:TObject);
begin
  ShowMessage('Test');
end;

wie kann ich jetzt sagen erzeuge je nach anzahl des arrays cick events ? danke euch !