{
FontCombo->Items->BeginUpdate(); // prevent repaints until done
FontCombo->Items->Clear(); // empty the list of any old values
FontCombo->Sorted = true; // make sure the font names are sorted
FontCombo->Items = Screen->Fonts; // add the current list of fonts
FontCombo->Items->EndUpdate(); //reenable painting
}