Francisco: No había entendido, ya ves porqué no me animo a modificar clases?. Correcto, ahora todo va bien, ya nada mas habré de tener cuidado cuando cambie de versión. Así quedó: nWidth := ::oReport:oDevice:GetTextWidth(cTitle, oFont) ::oReport:oDevice:Say(nRow, nCol, cTitle, ...