关于TComboBox的问题。。。。

procedure TForm1.Button2Click(Sender: TObject);
var
i, ItemWidth: Integer;
begin
  ItemWidth:=0;
  With Combobox1 do
    begin
    for i:=0 to Items.Count-1 do
      if Form1.Canvas.TextWidth(Items[i])> ItemWidth then
       ItemWidth:= Form1.Canvas.TextWidth((Items[i]))+5 ;
    Perform(CB_SETDROPPEDWIDTH, ItemWidth,0);
  end;
end;