Probiere es mal so:
Delphi-Quellcode:
var
w: Integer;
begin
{...}
w := Canvas.TextWidth('Testtext');
Canvas.TextOut((Width - w) div 2, 100 {Y-Coord}, 'Testtext');
{...}
end;
Canvas.Textwidth gibt die die Textlänge in Pixel in Abhängigkeit von der verwendeten Schrift aus.
EDIT: Arr ... 2. Seite übersehen. Is aber dennoch einfacher die Lösung ^^