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