Mostrando as fontes truetype instaladas no windows

{Para testar o exemplo abaixo inclua em seu formulário um componente ListBox, um componente Label e um componente ListBox.}

// Evento OnClick do componente LisBox
procedure TForm1.ListBox1Click(Sender: TObject);
begin
{ Atribui a propriedade Caption do componente Label o nome da fonte selecionada apenas para visualização}
Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
{ Atribui ao componente Label1 na propriedade Name da propriedade Font o nome da fonte selecionada para que o componente Label para utilizar a mesma fonte }
Label1.Font.Name := ListBox1.Items[ListBox1.ItemIndex];
end;
// Evento OnClick do componente Button.
procedure TForm1.Button1Click(Sender: TObject);
begin
{Carrega as fontes instaladas no Windows para o componente ListBox}
ListBox1.Items := Screen.Fonts;
end;