現在動的に生成したTMenuItemにOnClickイベントを割り当てる方法が分からず困っています
静的であれば

procedure TForm1.Open1Click(Sender: TObject);
begin
hoge;
end;
procedure TForm1.hoge(Sender: TObject; Hint: String);
begin
ShellExecute(Handle,'OPEN',PChar(Hint),'','',SW_SHOW);
end;

とすればよいのでしょうが、動的に生成したものをどのように処理したら良いかわかりません
どなたかご教授お願いします