Please try this fix:
- open imageenvect.pas and locate "TImageEnVect.DrawObjectText" method
- replace following code:
if aobj.TextAutoSize then
begin
nx2 := x1 + dx;
ny2 := y1 + dy;
end;
with
if aobj.TextAutoSize then
begin
nx2 := trunc(x1 + abs(dx * cos(fa)) + abs(dy * sin(fa)));
ny2 := trunc(y1 + abs(dx * sin(fa)) + abs(dy * cos(fa)));
end;
Remember also to set ObjTextAlign[] = iejCenter.