crear popups dinamicamente.

[tango01]

hola, estoy creando unos TPopupMenu con sus respectivos TMenuItem dinamicamente

el problema es que no puedo asignarle un metodo al metodo click del TMenuItem

self.menu := TPopupMenu.Create(fm);
it := TMenuItem.Create(self.menu);
it.Caption := 'hola';

self.menu.Items[0].Click := self.ClickActivo; 
//esta ultima linea me dice "Left side cannot be assigned to"

self.menu.Items.Add(it);

que puedo estar haciendo mal?