Combox med textstørelse

Comboboxen har en font property..

Det ved jeg godt, men min combox skal ligne dem der findes i andre text programmer hvor den dropper ned og man vælger størelse.
den skal ikke bare åbne font property

Sidder ikke lige med delphi men men den her burde virke
I din combobox kan du under items string skrive f.eks 8 9 10 osv.
og så tilknytte nedenstående kode til dine items i combobox

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if
combobox1.ItemIndex = 0 then memo1.Font.Size:= 8;
if
  combobox1.ItemIndex = 1 then memo1.Font.Size:= 10;
  if
  combobox1.ItemIndex = 2 then memo1.Font.Size:= 12;
end;
//forsætte itemindex = 3 4 osv.