Como obtenho as coordenadas do mouse quando um controle é clicado?

Em um evento OnClick de uma TImage, eu gostaria de extrair as coordenadas x, y do mouse. Eu os preferiria em relação à imagem, mas em relação à forma ou janela é igualmente bo