[[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