Nur so als Idee:
Wenn man in der Combobox eine Schrift auswählt, dann müsste man doch diese Schrift im Ereignis OnChange bei ComboBox.Font.Name zuweisen können.
Ungefähr sowas:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Assign(Screen.Fonts);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Font.Name := ComboBox1.Text;
// Oder
ComboBox1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
end;