Crear menú en tiempo de ejecución

[FerCastro]

Hola al foro, tengo el siguiente problema.

Necesito crear un menu conceptual (popup) en tiempo de ejecución y asignar una acccion a cada opcion del menu,

Lo que hago es que tomo los datos de un query para crear los items del menu, y eso me queda bien. Ahora, como agrego la propiedad onclick en tiempo de ejecución a cada item que voy creando?

Lo que hago es lo siguiente:

Código Delphi [-]
nTotal := Data.AQMenuPopTSegmentos.RecordCount;
nTotal := Data.AQMenuPopTSegmentos.FindFirst;
For nCiclo := 0 to nTotal - 1 do
  Begin
    MenuItem := TMenuItem.Creaete(mPopTSegmentos)
    MenuItem.Caption := Data.AQMenuPopTSegmentos.FieldbyName('NombreSegemento').AsString;
    mPopTSegmentos.Items.Add(MenuItem);
    Data.AQMenuPopTSegmentos.FindNext

Esto me crea perfectamente los items del menu, pero estos no tienen metodo onclick declarado, lo que necesito es agregarselo pues cada item tiene un llamado a un mismo procedimiento mandando como procedimiento el valor del caption.

Que puedo hacer? cómo se hace lo que deseo?

Agradezco y espero haber sido claro con lo que estoy planteando aqui,

Fernando Castro
México, D.F.