Como puedo hacer con un popumenu...?

[[Caral]]

Hola
Aqui tienes un ejemplo sencillo.

Código Delphi [-]
var
  Form1: TForm1;
  imagen: integer;
implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  imagen:= 1;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
   PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  imagen:= 2;
end;

procedure TForm1.eliminar1Click(Sender: TObject);
begin
  if imagen = 1 then
  image1.Visible:= False;
  if imagen = 2 then
  image2.Visible:= False;
end;

procedure TForm1.eliminarycolocar1Click(Sender: TObject);
begin
  if imagen = 1 then
  image1.Picture:= image3.Picture;
  if imagen = 2 then
  image2.Picture:= image3.Picture;
end;

Saludos

[Hayton]

Hola, en el evento onpopup el sender es un tpopupmenu que entre una de sus propiedades hay una que es popupcomponent que te devuelve el componente que llamo al menu, que es lo que queria.

Muchas gracias a todos.