[[xEsk]]

Imagino que preguntas como convertir un PByte a Byte, para eso debes hacer un casting a Byte:

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  puntero: PByte;

begin
  // obtenemos un PByte con el numero 13
  puntero:=PByte(13);
  // mostramos el valor del byte
  ShowMessage(IntToStr(Byte(puntero)));
end;

Saludos