请教一个简单问题

Question

请教一个简单问题procedure chang(Input, Output: TStream);
type
  PInteger = ^Integer;
var
  InBuf: array[0..509] of Byte;
  OutBuf: array[0..1023] of Char;
  BufPtr: PChar;
  I, J, K, BytesRead: Integer;
  Packet: TPacket;
begin
  K := 0;
.............................很长  
  until BytesRead = 0;
end;
==============================
请教问题：
  type
  PInteger = ^Integer;
这句话中是什么作用啊？

Answer 1

定义一个整型指针类型PInteger 

Answer 2

========================
type
  PPacket = ^TPacket;
  TPacket = packed record
    case Integer of
      0: (b0, b1, b2, b3: Byte);
      1: (i: Integer);
      2: (a: array[0..3] of Byte);
      3: (c: array[0..3] of Char);
  end;这是什么意思？

Answer 3

定义一个指向Integer的指针类型。