var
  Metrics : TTextMeric;
begin
  GetTextMetrics(Canvas.Handle,Metrics);
GetTextMetrics会使TTextMetric的记录包含现在设备的大量信息,不仅包括
字体的高度和宽度,还包括字体是否加粗,倾斜.
  Metrics的tmHeight字段是高度