Setzen von combobox index Funktioniert nicht

[DeddyH]

Was passiert denn so?

Delphi-Quellcode:

function DriveExists(DriveByte: Byte): Boolean;
begin
  Result := GetLogicalDrives and (1 shl DriveByte) <> 0;
end;

procedure TForm6.FormCreate(Sender: TObject);
var I : Integer;
begin
  combobox2.Clear;
  for i := 0 to 25 do
  begin
    if not DriveExists(I) then
     begin
      Combobox2.Items.Add(Chr(I + Ord('A')) + ':');
     end;
  end;
end;

{procedure TForm6.ComboBox2DropDown(Sender: TObject);
var I : Integer;
begin
combobox2.Clear;
  for I := 0 to 25 do
  begin
    if not DriveExists(I) then
     begin
      Combobox2.Items.Add(Chr(I + Ord('A')) + ':');
     end;
  end;
end;}

procedure TForm6.ComboBox1Select(Sender: TObject);
begin
  if ComboBox2.Items.Count > 0 then
    combobox2.ItemIndex := 0;
end;