[VCL] Textbreite in Pixeln ohne Canvas ermitteln?

[Der schöne Günther]

Ich möchte die Pixelbreite eines Textes (z.B. die Caption eines TButton ) ermitteln. Ich finde immer nur Beispiele welche die Methode TextWidth(..) eines TCanvas benutzen.

Im Falle eines TButton habe ich leider keinen Canvas. Was tue ich dann?