如何生成旋转字体

procedure TForm1.Button1Click(Sender: TObject);
var lf:tlogfont;
tf:tfont;
begin
   tf:=tfont.Create;
   tf.Assign(button1.font);
   getobject(tf.handle,sizeof(lf),@lf);
   lf.lfEscapement:=450;
   lf.lfOrientation:=450;
   tf.Handle:=createfontindirect(lf);
   button1.parentfont:=false;
   button1.Font.Assign(tf);
   tf.free;
end;