我来实现fbyang的方法
var
strCaption:AnsiString;
iCaptionLen:integer; //标题宽度
iFormWidth:integer; //窗体宽度
iSpaceCount:integer; //应家空格数
i:integer; //循环
begin
strCaption:='';
iCaptionLen:=Length(Form1.Caption);
iFormWidth:=Form1.Width;
iSpaceCount:=(iFormWidth-iCaptionLen) div 2;
for i:=0 to iSpaceCount-1 do
strCaption:=strCaption+' '; //注意后面的空格
strCaption:=strCaption+Form1.Caption; //放在中间
end;