Popupmenu

Jeg bruger denne kode til at finde alle mine cd-rom drev, men jeg vil have den som en submenu. der skal være en menu der heder "cd" og alle cd-rom drevne skal så være under "cd" og ikke i roden af popupmenu

procedure TForm1.Button1Click(Sender: TObject);
var
menu:TMenuitem;
Drive: Char;
DriveLetter: String[4];
begin
PopupMenu1.Items.Clear;
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive ;
case GetDriveType(PChar(Drive + ':\\')) of

DRIVE_CDROM:
begin

menu := TMenuitem.Create(PopupMenu1);
menu.Caption := Driveletter + ':';
PopupMenu1.Items.Add(menu);
end;
end;
end;
end;