[[seoane]]

Puedes hacerlo por código:

Código Delphi [-]
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  TStrings(Data).Add(LogFont.lfFaceName);
  Result:= 1;
end;

procedure CargarFuentes(Items: TStrings);
var
  DC: HDC;
begin
  DC:= GetDC(0);
  Items.Clear;
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(Items));
  ReleaseDC(0, DC);
end;

Por ejemplo:

Código Delphi [-]
  CargarFuentes(Combobox1.Items);