怎样改以下代码才能实现居中显示呢(16分)

procedure TForm1.FormCreate(Sender: TObject);
var
tf : TFont;
lf : LOGFONT;
begin
button1.Height:=297;
button1.Width:=137;
button1.Font.Name:='宋体';
button1.Font.Color:=clred;
button1.Font.Size:=22;
button1.Caption:='旋转字体';
tf := TFont.Create;
try
tf.Assign(Button1.Font);
GetObject(tf.Handle,SizeOf(LOGFONT),@lf);
lf.lfEscapement := 900;
lf.lfOrientation := 900;
tf.Handle := CreateFontIndirect(lf);
Button1.Font := tf;
finally
tf.Free;
end;
end;

我有一个比较苯的方法
就是算出字体的宽 和 高
然后在得到按钮的宽和高
减去 求平均的距离就好了
自己试试