procedure TEXnet.ExServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  istart : word;
  iLoop : byte;
  i: integer;
begin
  ZeroMemory(@HDta, 8191);
  ZeroMemory(@DstBlock, sizeof(TstDsTBlock));
  AData.Read(HDta,AData.Size);

  if HDta[0] = C_CSN_CMD_DST then
  begin
    CopyMemory(@DsTBlock, @HDta, sizeof(TstDsTBlock));
    istart := DsTBlock.iStart;
    iLoop  := DsTBlock.nItems;

    if ((istart + iLoop) <= 822) then
    begin
      for i:= istart to (istart + iLoop -1) do
      begin
        RDta[i] := DsTBlock.Item[i-iStart].EVal.vFloat;
      end;
    end;


    if ((istart + iLoop) <= 822) then
    begin
      for i:= istart to (istart + iLoop -1) do
      begin
        ZeroMemory(@QDta, Sizeof(PDta));
        PDta[i] := DsTBlock.Item[i-iStart].EVal.vInt;
      end;
    end;
    exit;
  end;
end;

소스 코드입니다
통신값 받아서 구조체로 받아서 다시 배열로 뿌려주는 소스인데
폼종료시 간헐적으로
access violation at address 00000018, read of address 00000018
오류가 납니다~