Setzen von combobox index Funktioniert nicht

[5etH]

Hallo Zusammen,

ich hab einen merkwürdigen Fehler, wenn ich den Index von einer Combobox setzen möchte. Entweder Zeigt er mir das Falsche an, oder garnichts. Ich hoffe Ihr könnt mir weiter helfen.
Hier einmal die Code Stücke.

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
  combobox2.ItemIndex := 0;
end;

So jetzt zur Sache: Das was in OnCreate Steht Stand auch mal OnShow, da hatte ich das Problem das index[0] eigentlich A: sein sollte, aber da kam Q raus.

Wenn ich es OnCreate machen Zeigt er mir im Debugger an das in Index[0] nciht drin ist wenn ich in Combobox1 etwas Ausgewählt habe.

Wenn ich voher Einmal combobox2.Dropdown gestartet hatte Dann Zeigt er mir das Ohne Probleme an also sobald ich index = 0 setzte zeigt er A: an

ich hoffe das Ihr mir helhen könnt

Liebe Grüße
Manu