VCL Delphi

Title: How to remove the single line border around a combobox
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowRgn(ComboBox1.Handle, CreateRectRgn(2,2,ComboBox1.Width - 2,
ComboBox1.Height - 2), True)
end;