[[Bicho]]

Pues por ejemplo para un tedit prueba a lo siguiente:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var noPopup: TPopupMenu;
begin
   noPopup:=TPopupMenu.Create(Nil);
   Edit1.PopupMenu := noPopup;
end;

Espero te sirva.

Saludos