procedure TForm4.JvFontComboBox1Change(Sender: TObject);
begin try
if FUpdating then Exit;
CurrText.Name := JvFontComboBox1.Items[JvFontComboBox1.ItemIndex];
except end;End;