Determine cursor position in TWebBrowser in edit mode
1 answer
IHTMLTxtRange defines several attributes to get what you want.
But the key elements are boundingLeft and boundingTop
This link contains some information on how it works.
+1
source to share