Danke an alle.
Beide Funktionen, "Canvas.Rectangle" und "Canvas.TextRect", funktioieren wunderbar

! Ich benutze weiterhin meine Lösung, da ich sie glücklicherweise sowieso hätte schreiben müssen

. Allerdings für meine nächsten Projekte wird diese "neue" Funktion beutzt.
Ein Hoch auf Delphi

,
Gruß Puke.