Mit
Image1.Picture.Bitmap.Canvas.TextOut(Image1.Width div 2 , Image1.Height div 2, edText.Text);
fängt der Text in der Mitte an.
TextExtent liefert dir die Abmessung des Strings. Die kannst du dann noch Abziehen.
Delphi-Quellcode:
TextSize := Image1.Picture.Bitmap.Canvas.TextExtend(edText.Text);
Image1.Picture.Bitmap.Canvas.TextOut((Image1.Width - TextSize.cx) div 2, (Image1.Height - TextSize.cy) div 2, edText.Text);
grüße, daniel