procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
// Set the width of the list to 200
ComboBox1.Perform(CB_SETDROPPEDWIDTH, 200, 0);
end;