interface

uses
  ......, regsitry;

:
:

const SR_PATH = '\Software\연습';

var
  I: Integer;
  Keys: TStringList;
  tmp: string;
begin
  Reg := TRegistry.Create;
 
  with Reg do begin
    RootKey := 'HKEY_LOCAL_MACHINE';   
    if OpenKey(SR_PATH, False) then begin
      Keys := TStringList.Create;
      GetKeyNames(Keys);
      if Keys.Count <> 0 then begin
        for I := 0 to Keys.Count - 1 do begin
          tmp := SR_PATH + '\' + Keys.Strings[I];
          if OpenKey(tmp, False) then begin
              Grid.Cells[1, I] := ReadString('Address');
              Grid.Cells[2, I] := ReadString('Ports');
            end; // with
          end;   // if
        end;     // for
      end;
      Keys.Free;
    end;
    Free;  // Reg object
  end;
end;
이상입니다. 델파이 헬프에서 찾아보면 더 자세히 나옵니다.