default font for WPSymbolDlg

procedure TWPSymbolDialog.FormActivate(Sender: TObject);
var
 i: Integer;
 s: TFontName;
begin
 if fsEditBox = nil then
  s := FFontName
 else
 begin
  if not fsEditBox.WritingAttr.GetFontName(s) or (s='') then s :=FFontName
 end;
 for I := 0 to cbxFontList.Items.Count do
  if CompareText(cbxFontList.Items.Strings[i], s) = 0 then
  begin
   cbxFontList.ItemIndex := I;
   Break;
  end;


 CharacterGrid.Font.Name := s;
 CharacterGrid.Font.CharSet := DEFAULT_CHARSET; // aCharset;
 cbxFontListChange(Sender);
end;