{I was surprised to find a quick and easy way to get a list of system fonts. I have seen code that are over 15 lines of code this one is 2 lines.}
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Assign(Screen.Fonts);
ComboBox1.ItemIndex:=0;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Font.Name:= ComboBox1.Text;
end;