О плагинах для l2phx 3.4.1+

[Zergatul]

procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; const connectionName: String; var pck: String); stdcall;
var
  p: TPacket;
begin
  if pck = #$1B#02#00#00#00 then
    begin
      p.pckSize := 3;
      p.pckId := $46;
      ps.SendPacketData(p, cnt, true);
      Exit
    end;
end;

Вот такой код, при выполнении вылетает. Лог на всякий случай прикрепил.
Может у меня старый юнит usharedstructs? Где можно взять самый новый?