Компонент Edit

procedure Form1_OnShow (Sender: string; Action: string);
var
    PopupMenu: TPopupMenu;
    MyItem: TMenuItem;
begin
    PopupMenu := TPopupMenu.Create(Form1);

    MyItem := TMenuItem.Create (PopupMenu);
    MyItem.Caption := 'Item1';
    MyItem.OnClick := @MenuClick1;
    PopupMenu.Items.Add(MyItem);

    MyItem := TMenuItem.Create (PopupMenu);
    MyItem.Caption := 'Item2';
    MyItem.OnClick := @MenuClick2;
    PopupMenu.Items.Add(MyItem);

    Form1.Button1.PopupMenu := PopupMenu;
end;

procedure MenuClick1 (Sender: string);
begin
     ShowMessage('Hello from Item1');
end;

procedure MenuClick2 (Sender: string);
begin
     ShowMessage('Hello from Item2');
end;

begin
end.