Автор: http://www.swissdelphicenter.ch

procedure TForm1.FormCreate(Sender: TObject);
 begin
   SetWindowRgn(ComboBox1.Handle, CreateRectRgn(2,2,ComboBox1.Width - 2,
                ComboBox1.Height - 2), True)
 end;