Puertos disponibles -2

[CelestronFan]

No se porque se borro mi post anterior, pero lo vuelvo a colocar.

Utilicé el código mostrado abajo que encontré en Internet, a fin de determinar que puertos seriales existen en la PC que corre mi aplicación y rellenar un combo box para que el usuario escoja solo de los que están disponibles.

Sin embargo, obtengo un error al compilar que dice: [Error] NGFS.pas(47): Undeclared identifier: 'TRegistry'
Se que se debe a la declaración y creación de la clase. ¿Podrían sugerirme que es lo que falta?

Muchas Gracias.

var
i:integer;

 with TRegistry.create do
  try
   rootkey:=HKEY_LOCAL_MACHINE;
   if keyexists('HARDWARE') then begin
    if openkey('HARDWARE',false)then begin
     if keyexists('DEVICEMAP') then begin
      if openkey('DEVICEMAP',false)then begin
       if keyexists('SERIALCOMM') then begin
        if openkey('SERIALCOMM',false)then begin
         GetValueNames(SerialCombo.items);
         for i:=0 to SerialCombo.items.count-1 do
          begin
           SerialCombo.items[i]:=ReadString(SerialCombo.items[i]);
          end;
         end
        end;
       end;
      end;
     end;
   end;
  finally free;
  end;