Hi. I have the same issue with an older control. I see that procedure sets the top and left value. What procedure did you use in its place?
I implemented in TJCustomLabel (unit jlabel):
procedure DoCalculateTextPosition(var TextTop: integer;
var TextLeft: integer); virtual;
To replace the removed procedure. I call it in Paint procedure. In this way, I don't care if it will be restored or not in Lazarus.