el codigo sria algo asi:
procedure TFMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['1'] then
begin
Fmain.PopupMenu1.Popup(550,60); //abro el menu
Fmain.PopupMenu1.Items[1].Click; // hago click en el item número 1
end;
end;
Tene en cuenta poner KeyPreview poner en True en el formulario.
Espero haberte ayudado
salud2
PD:= Hoy por tí mañana por mi