Adding parameters to TMenuitems build at runtime

Last week I was building a little app with a submenu build at runtime.
All went well until I had to give some parameters with the OnClick event.
It seems that the only param I was able to pass was TObject * Sender.

Any solutions ?