First, turn of autocompletion:
cmbFont.AutoComplete := False;
In RichViewEdit1.OnCurTextStyleChanged, assign the current text style to cmbFont.Text.
In cmbFont.OnClick, apply the chosen font (using rvActionFontEx).
You can see how it is implemented in the ActionTest demo.