Fórum Sender PopMenu #332904

Galera, eu crio alguns componente em tempo de execução (do tipo TLabel) e preciso de qdo clicar com o botão direito ele apareça um pop menu. Tudo bem, isso eu fiz. Só que qdo aparece o popMenu eu precisaria que o sistema me enviasse o componente para eu pegar umas propriedades tipo:

//Item do PopMenu
procedure TfrmColetaClipagem.VerPropriedades1Click(Sender: TObject);
begin
if (Sender is TCRS_ProgramasAtena) then
begin
FrmVerPropsPrograma.IdProg.caption := TCRS_ProgramasAtena (sender).IDPrograma;
FrmVerPropsPrograma.CodPraca.Caption := TCRS_ProgramasAtena(sender).codProg;

FrmVerPropsPrograma.ShowModal;
end;
end;

Mas qdo clico com o botão direito sobre o componente, ele não envia o TCRS_ProgramasAtena

O que faço please?