[SnaKe]

Puedes utilizar el evento OnMouseDown del TImage, si te fijas en el interface que se crea en ese evento hay una variable que se llama Button, comprueba de la siguiente forma:

Código Delphi [-]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) then begin
   // Aqui lo que quieras
  end;
end;

Espero que te sirva.
Un saludo.