Cursor height = cell height if vert alignment other than top

If I set the vertical alignment in a table cell to center or bottom, the text cursor height extends to the height of the cell. This does not look good IMHO.

WPTools 5.20.6
Delphi 7