InputBox等窗体的字体大小设置方法 

 Graphics.DefFontData.Height:=48; 
 Graphics.DefFontData.Style:=[fsBold,fsItalic, fsUnderline]; 
 inputbox(‘aa‘,‘aa‘,‘dd‘); 
 Graphics.DefFontData.Height:=0; 
 Graphics.DefFontData.Style:=[];