delphi 点击按钮怎么实现对combox的刷新功能

delphi 点击按钮如何实现对combox的刷新功能？
delphi 点击按钮如何实现对combox的刷新功能？

var myhWnd: HWND ; 
  MyDevice:Pointer;

procedure TForm1.btnRefreshClick(Sender: TObject);//请问在这个按钮事件中如何实现对combox的刷新功能？
var i: Integer;
begin

  for i := 0 to myComBox.ItemIndex do
  begin
  myComBox.Items.Add(Mystr);
  end;
  // myComBox.Refresh;  

end;

请大家帮忙看看 给指点迷津 非常感谢

------解决方案--------------------
Combbox1.ItemIndex:=0;//-1指向空，0指向第一个，其他依次
------解决方案--------------------

探讨

类似下面这样写, 这里MyDevice 是指针,所以要按照实际情况变通

procedure TForm1.btnRefreshClick(Sender: TObject);
var i: Integer;
begin
for i := 0 to MyDevice.DeviceCount - 1do
begin
myComBox.Items.Add(MyDev……