uses절에는
Registry를 선언하시고요

function GetWindowsID: string;
var
Registry: TRegistry;
str:string;
begin
  Registry := TRegistry.Create(KEY_WRITE);
  try
  Registry.Lazywrite := false;
  Registry.RootKey := HKEY_LOCAL_MACHINE;

    Registry.OpenKeyReadOnly('\Software\Microsoft\NotePad\DefaultFonts');
    str := Registry.ReadString('lfFaceName');
    result:=str;
    Registry.CloseKey;
    finally
    Registry.Free;
   end; // try..finally
end;


(구글링으로 찾은 자료입니다.)

사용법은 String형을 선언하였으니까...

Label1.Caption := GetWindowsID;
또는 ShowMessage(GetWindowsID);

프로그램을 하다보면 가끔 필요할때가 있더군요







상어밥 님이 쓰신 글 :
: 첨부사진에 보이는 아래의 내용을 레지스트리에서 읽어오고 싶은데 어떻게 가능할까요?
:
: (LocalInfomation, REG_SZ, SURGI_HD_5M)
:
: 첨부사진 빨간줄로 표시한 부분(이름, 종류, 데이터) 가 있는데 이 값을 가지고 오고 싶습니다