du übergibst einfach nur das Canvas, worauf zu den Text zeichnen willst (der Font und sonstiges würde dann aus diesem Canvas ausgelesen) und natürlich noch den zu messenden Text.
Delphi-Quellcode:
// dieses
i := TBitBtn(Sender).Canvas.TextHeight('derText')
// würde dann so aussehn
i := TextHeightEx(TBitBtn(Sender).Canvas, 'derText');