Asociales un evento OnClick en tiempo de ejecución asi:
Código Delphi
[-]
private
procedure Clickeo(Sender: TObject);
.........
procedure TListasFrm.Clickeo(Sender: TObject);
begin
Edit1.Text := TMenuItem(Sender).Caption;
end;
Y para asignarle ese evento a los Items seria en el momento donde los adicionas al popupmenu pero como no nos haz mostrado como haces esa adición pues me tocara suponer con el siguiente ejemplo:
Código Delphi
[-]
Items1.OnClick := Clickeo;