Hi,
bei mir sieht das so aus:
Procedure wz5CopyRD(s : tSocket; Data : Pointer; len : Word);
var
ptr, s2 : Word;
begin
s2:= Sn_RX_RD0(s); // = s * $100 + $0028
wz5ChipRD(s2, @ptr, 2);
ptr:= Swap(ptr);
read_Data(s, @ptr, @Data, len); // read data
Inc(ptr, len);
ptr:=...