Zeichen in TStringList löschen

[bikeruk]

Hallo

Ich muss in meiner Anwendung die aktiven COM-Port`s in eine TComboBox übernehmen. Dazu habe ich im Forum nachfolgenden Code gefunden der auch funzt.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject); 
//ComPorts ermitteln und in ComboBox anzeigen 
var 
  i: integer; 
  reg: TRegistry; 
  sl: TStrings;
 
begin 
     reg := TRegistry.Create; 
     reg.RootKey := HKEY_LOCAL_MACHINE; 
     reg.OpenKeyReadOnly('hardware\devicemap\serialcomm'); 
     sl := TStringList.Create; 
     reg.GetValueNames(sl); 
     ComboBox1.Items.Clear; 
      for i := 0 to sl.Count -1 do 
        begin 
        ComboBox1.Items.Add(reg.ReadString(sl.Strings[i])); 
        end; 
     sl.Free; 
     reg.CloseKey; 
     reg.Free; 
end;

Mei Problem ist, das in der TStringlist z.B. fogende werte stehen:

COM1
COM2
COM3
COM4

Meine COM Port anwendung jedoch nur den Zahlenwert benötigt.
Wie kann ich aus der TStringList in jedem Eintrag das Wort "COM" löschen?

Habe schon alles mögliche probiert jedoch bisher ohne Erfolg.

mfg
bikeruk