LISTER LES POLICES DANS UN COMBOBOX

//Fonction qui récupère les fontes dans un objet Tstrings
function GetFontList:Tstrings;
var
screen :Tscreen;
begin
  screen := Tscreen.Create(nil);
  Getfontlist := screen.fonts;
end;

//code à mettre où vous voulez (dans le form activate pas exemple) 
//pour mettre les polices dans le combobox
combobox1.Style := csdropdownlist;
combobox1.Items := getfontlist;
combobox1.ItemIndex := 0;