怎么样提取系统字体,并显示在列框中？

Question

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  TComboBox(Control).Canvas.FillRect(Rect);
  TComboBox(Control).Canvas.Font.Name := TComboBox(Control).Items[Index];
  TComboBox(Control).Canvas.TextOut(Rect.Left, Rect.Top,
    TComboBox(Control).Items[Index]);
end;///////
  object ComboBox1: TComboBox
    Left = 64
    Top = 40
    Width = 145
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 0
    OnDrawItem = ComboBox1DrawItem
  end