Como escriben por ahí picando al componente, en este caso el image1, por ejemplo, luego al procedimiento onmousemove y ahí en los parametros ves el X e Y. conviertes con inttostr(X) para pasarlo a por ejm un label y listo.
Label1.Caption := inttostr(X);