Problem mit TMainMenu

[silentAMD]

Hi leute,
ich hab da, wie schon erwähnt, ein prob mit der komponente tmainmenu:
mein programm soll alle laufwerke in das tmainmenu einlesen, doch
meine laufwerke (a, c-m), also elf einträge, doch auf jedem betriebssystem (windows 98 se, xp)
auf dem ich das ausprobiert habe, zeigte er nur a und c-k (also nur 10) an.
kann das an der begränzung der auslesbaren laufwerke liegen (mit meinem prog kann ich auf win98
mehr laufwerke auslesen als das betriebssystem), aber auf xp findet er ja alle.
hier mein quelltext:

Delphi-Quellcode:

procedure TForm1.HD;
function DriveType(DriveByte: Byte): String; 
begin 
 case GetDriveType(PChar(Chr(DriveByte + Ord('A')) + ':\')) of
  DRIVE_REMOVABLE: Result := 'Diskette';
  DRIVE_FIXED: Result := 'Festplatte';
  DRIVE_CDROM: Result := 'CD-ROM/DVD';
 else
  Result := '?';
 end;
end;
var i: Integer; NewItem: TMenuItem;
begin
 try
  for i := 0 to 25 do
  if GetLogicalDrives and (1 shl i) <> 0 then
  begin
  NewItem := TMenuItem.Create(Menu);
  NewItem.Caption := Chr(i + Ord('A'))+#9+'('+DriveType(i)+')';
  if NewItem.Caption[1] = c then NewItem.Checked := True;
  NewItem.RadioItem := True;
  NewItem.AutoCheck := True;
  NewItem.OnClick := DriveChange;
  Menu.Items[1].Insert(Menu.Items[1].Count, NewItem);
 end;
 finally
  NewItem.Free;
 end;
end;

procedure TForm1.DriveChange;
begin
TMenuItem(Sender).Checked := True;
c := TMenuItem(Sender).Caption[2];
end;

variable c ist das laufwerk.
nur so nebenbei : warum muss ich
c := TMenuItem(Sender).Caption[2]; eingeben, dass ich den richtigen laufwerksbuchstaben vom menü herausbekomme?



WIE KANN ICH ALLE LAUFWERKE IM MENÜ ANZEIGEN LASSEN?


PLEASE HELP!!!