Fórum PopupMenu Dinamico #414649

Opa, vamos lá.
Nesse exemplo, vou criar três itens em um popup menu que já estava no form e ligá-los a um evento que será disparado ao clicar sobre os itens.

Primeiramente, declaremos o procedimento que será o onClick dos itens:
procedure ItemClick(Sender:TObject);

Após declarar, implementemos:

procedure TForm1.ItemClick(Sender: TObject);
begin
ShowMessage((Sender as TMenuItem).Caption);
//Aqui, Sender é o item do menu que recebeu o click.
end;

Feito isso, vamos criar os itens e adicioná-los ao PopupMenu:
var
i : Integer;
item : TMenuItem;
begin
for i := 1 to 3 do
begin
item := TMenuItem.Create(Self);
item.Caption := Item + IntToStr(i);
item.OnClick := ItemClick;
PopupMenu1.Items.Add(item);
end;
end;


Bem, fiz o básico. Você pode adaptar a sua necessidade.
Boa sorte.