Контекстное меню на основе базы данных

procedure  TMyForm.CreatePopUpMM(Sender: TObject);

Navidummy.free;

Navidummy:=TComponent.create(self);

While not NaviT.EOF do

m := TMenuItem.create(navidummy);

II:=II+1;

with m do

name :='MM'+IntToStr(II);

caption := NaviT.Fieldbyname('MyWHAT').AsString ;

tag := NaviT.Fieldbyname('MyTAG').AsInteger;

visible:=True;

OnClick:= NaviExec ;

end;

MyMenuItem.add(m);

NaviT.Next;

end;

NaviT.Close;

What.text := (Sender as TMenuItem).Caption; { Здесь я получаю то, что хочу ! }

Key:= (Sender as TMenuItem).Tag ;