TextOut benutzt, wie St.Pauli richtig bemerkt hat, die übergebenen Koordinaten als obere, linke Ecke.
Die Befehle sollten dir da weiterhelfen:
Delphi-Quellcode:
form1.Image1.Height div 2 - Canvas.TextHeight('Text') div 2;
form1.Image1.Width div 2 - canvas.TextWidth('Text') div 2;
Konstantin