puntero

[gaston260]

buenas tardes !

Mi pregunte es la siguiente ¿ como puedo camviar un valor de un puntero a entero ? , mi codigo es el siguiente

Código Delphi [-]
 
procedure TfrmMain.BufferFinished(var Msg: TMessage);
var
hdr: PWaveHdr;
P: PByte;
begin
hdr:= PWaveHdr(Msg.LParam);
with hdr^ do
begin
P:= PByte(lpData);
gauge1.Progress :=(integer (p^));
Out32(StrToInt(txtpuertobucle.text), i)
end;
end.

espero que me aya explicado correctamente