popupmenu на несколько компонентов

[demiancz]

Да. Но вставив ваш код получаю
For loop control variable must be simple local variable
Missing operator or semicolon

Мне надо что бы если кнопка называется коловорот, то ее название (Коловорот) после вызова PopupMenu было изменено на название той кнопки с которой было вызвано PopupMenu

[demiancz]

Разобрался. Вот пример мне подкинули
if (PopupMenu.PopupComponent is TBitBtn) then
Edit1.Text:=PopupMenu.PopupComponen t as TBitBtn).Caption;

[kwinto]

if (PopupMenu.PopupComponent is TBitBtn) then
Edit1.Text:=(PopupMenu.PopupCompone nt as TBitBtn).Caption;

[Прик]

Можно лишь добавить, что Sender здесь как раз наш PopupMenu.

procedure TfrmViewPers.PopupMenu1Popup(Sender: TObject);
begin
  showmessage(TPopupMenu(Sender).PopupComponent.Name);
end;