Centralizar Titulo da Barra

[joseberto 0]

Como eu faço pra centralizar a texto na barra de titulo?

[marcio.theis 3]

Fiz desta forma, mas pode-se melhora-la ainda.

 

procedure TForm1.FormResize(Sender: TObject);var	aux: string;	x: integer;beginaux:='';for x:=1 to (Form1.Width div 8) do	aux:=aux + ' ';Form1.Caption:=aux + Trim(Form1.Caption);end;

[joseberto 0]

Muito Obrigado, funcionou, mais não fica tão centralizado, tem algo que realmente fique centralizado?