{
  - Coloque um botão no form;
  - Altere o evento OnClick do botão conforme abaixo:
}

procedure TForm1.Button1Click(Sender: TObject);
const
  cRegPath = 'System\CurrentControlSet\control\FileSystem';
  cRegValue = 'ACDriveSpinDown';
var
  Reg: TRegistry;
  S: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(cRegPath, false) then begin
      case Reg.GetDataType(cRegValue) of
        rdUnknown: S := 'Tipo Desconhecido';
        rdString:  S := 'String';
        rdExpandString: S := 'ExpandString';
        rdInteger: S := 'Inteiro';
        rdBinary:  S := 'Binário';
      end;

      ShowMessage(S);

    end else
      ShowMessage('Erro ao abrir chave do Registro');
  finally
    Reg.Free;
  end;
end;