获取系统字体列表

Uses

   Forms,

........

implementation

{$R *.dfm}

procedure TForm1.Btn_1Click(Sender: TObject);
begin
  Mmo_1.Clear;
  Mmo_1.Lines := Screen.Fonts;
end;