¿Cómo obtengo las coordenadas del mouse cuando se hace clic en un control?

En un evento OnClick de TImage, me gustaría, e, extraer las coordenadas x, y del mouse. Los preferiría en relación con la imagen, pero en relación con el formulario o la ventana es igual de bueno.