[NumLock]

в FormCreate задать ему ширину:

Код:

  ComboBox1.Width:=GetSystemMetrics(SM_CXHTHUMB)+
    GetSystemMetrics(SM_CYFIXEDFRAME)*2;

в его событии ComboBox1DropDown:

Код:

  ComboBox1.Width:=145;

в событии ComboBox1CloseUp опять:

Код:

  ComboBox1.Width:=GetSystemMetrics(SM_CXHTHUMB)+
    GetSystemMetrics(SM_CYFIXEDFRAME)*2;