Delphi - Výpis serial portu

Nazdar.
- Mohl by jsi checknout tvé porty v "Control Panel" → "Spravce zarizenir" → "Ports" (COM & LPT) ?
* Jen pro overeni, které jsou k moznému pouzit. Jestli tam najdes COM 5, tak na neho klikni pravym a vrat sem detaile.

- Mel by jsi mit neco takového :

TiP ~ Jestli chces pouzit COM5 a neni zobrazen, tak ho jen upresni/nastav :

Ano, mam to tam.
Jde mi o to abych vypsal porty co vidí arduino ID a ten port 5 vidí.

procedure TForm1.Button1Click(Sender: TObject);
var
 reg:  TRegistry;
 I:Integer;
begin
  ComboBox1.Text := '';
  Reg := TRegistry.Create;
  try
    Reg.Access := KEY_READ;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('HARDWARE\DEVICEMAP\SERIALCOMM') then
    begin
      Reg.GetValueNames(ComboBox1.Items);
      for I := 0 to ComboBox1.Items.Count - 1 do
          ComboBox1.Items[i]:= Reg.ReadString(ComboBox1.Items[i]);
    end;
    ComboBox1.Sorted := true;
    if ComboBox1.Items.Count > 0 then
      ComboBox1.ItemIndex := 0;
  finally
    Reg.Free;
  end;
end;

Do HKEY_LOCAL_MACHINE nema program pristup na zapis, pouze pro cteni. Pokud to objektu TRegistry nereknes, nepusti te tam, to je radek:
Reg.Access := KEY_READ;

Děkují moc