1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Cnt : Integer;
pBuffer : ^Byte;
bRec: Byte;

Cnt := Socket.ReceiveLength;
GetMem( pBuffer, Cnt );

Socket.ReceiveBuf( pBuffer^, Cnt );

// so, jetzt möchte ich den buffer byteweise auslesen, aber wie???
// 1. Versuch

for i := 0 to Cnt-1 do begin
   bRec := pBuffer[i];      // schön wärs, geht leider nicht
end;

// 2. Versuch
bRec: ^Byte;

bRec := pBuffer;      // geht auch nicht, obwohl beide gleichen Typs, schreit der Compiler, dagegen bRec := @pBuffer funktioniert -> will ich aber nicht
for i := 0 to Cnt-1 do begin
   ...
   Inc(bRec);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TByteArr = array of Byte;
  PByteArr = ^TByteArr;

var
  pBuffer: PByteArr;

//..............................................

  pBuffer := New(PByteArr);
  SetLength(pBuffer^, Cnt);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Cnt: Integer; 
pBuffer, 
bRec: PByte; 

Cnt := Socket.ReceiveLength; 
GetMem(pBuffer, Cnt); 

Socket.ReceiveBuf(pBuffer^, Cnt); 

bRec := pBuffer;         
for i := 0 to Cnt-1 do begin 
   ... 
   Inc(bRec); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Buffer : array of Byte;

Cnt := Socket....

SetLenght( Buffer, Cnt);               
Socket.Receive( Buffer, Cnt );

for i := 0 to Cnt do begin
   xx := Buffer[i]
end;                    

1:
2:

  PByteArray = ^TByteArray;
  TByteArray = array[0..32767] of Byte;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

const
  MAX_COUNT = 255;

type
  PDynByteArray = ^TDynByteArray;
  TDynByteArray = array of Byte;

  PStatByteArray = ^TStatByteArray;
  TStatByteArray = array [1..MAX_COUNT] of Byte;


procedure TForm1.Button1Click(Sender: TObject);
var
  szArray: array [1..MAX_COUNT] of Byte;
  pDynArray: PDynByteArray;
  pStatArray: PStatByteArray;
  i: Integer;
begin
  Listbox1.Clear;
  Listbox2.Clear;

  // den Array füllen
  for i := 1 to MAX_COUNT do
    szArray[i] := i;

  pDynArray := @szArray[1]; // dem Zeiger auf den dyn. Array die Adresse des Arrays zuweisen
  pStatArray := @szArray[1]; // dem Zeiger auf den stat. Array die Adresse des Arrays zuweisen

  // Listbox1 mit den Werten des Zeigers auf den stat. Array füllen
  for i := 1 to MAX_COUNT do
    Listbox1.Items.Add(IntToStr(pStatArray^[i]));

  // Listbox2 mit den Werten des Zeigers auf den dyn. Array füllen
  for i := 1 to MAX_COUNT do
    Listbox2.Items.Add(IntToStr(pDynArray^[i]));
end;