#pas
...
  Param := NewMemoryStream;
...
    Param:=Pointer(cardinal(Param.Memory) + (Param.Size - 4));
...