var
reg:TRegistry;
ts:TStrings;
i:integer;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware/devicemap/serialcomm',false);
ts := TStringList.Create;
reg.GetValueNames(ts);
for i := 0 to ts.Count -1 do begin
combobox1.Items.Add(reg.ReadString(ts.Strings));
end;
ts.Free;
reg.CloseKey;
reg.free;
