TEdit的小问题？(50分)

我在学习控件TEdit时，有如下几个地方不清楚：
在TEdit中有一个AdjustHeight方法
var
DC: HDC;
SaveFont: HFont; //
I: Integer;
SysMetrics, Metrics: TTextMetric;
begin
DC := GetDC(0);
GetTextMetrics(DC, SysMetrics);
SaveFont := SelectObject(DC, Font.Handle);
GetTextMetrics(DC, Metrics);
SelectObject(DC, SaveFont);
ReleaseDC(0, DC);
if NewStyleControls then

1。SelectObject(DC, SaveFont);
在这里是什么作用，怎么不像上面SaveFont := SelectObject(DC, Font.Handle)
附值给一个变量。(我想的是SelectObject里面的2个参数不是var型,起什么作用)
2。NewStyleControls这个有什么用

如果，您有足够的时候，请说详细点。
感谢!!!!!

我很忙，就说两句：
它叫SaveFont，那就是保存别的东西用的。不用了就要把它放回去。
有NewStyleControl就应该有OldStyleControl。有各种Style可供选择。

说白了savefont 就是中间变量。

接受答案了.