TEdit

espero que te ajude, encontrei isso em outro site de Delphi....





espero que ajude
criar uma propriedade no edit onde você informe se é para centralizar ou não... do tipo CenterText (True/False);
depois, no OnPaint você verifica se a propriedade é true e dai desenha o texto em questão...

LeftText := Self.Width - Self.Canvas.Text.Widht(Texto) div 2;
TopText := valor;
WidthText := Self.Canvas.Text.Widht(Texto);
HeigthText := Self.Canvas.Text.Height(Texto);
Canvas.TextOut(Rect(TopText,WidthText,HeightText),Texto);

beleza ? a idéia é mais ou menos essa.. tem que ver certinho como fazer.. mas acho que é mais ou menos assim..
valeu