type PWORD = ^WORD;
Procedure ReadCounter(hCTCD3I6 : CTCD3I6_HANDLE; DataAry : PWORD);
begin
CTCD3I6_WriteByte(hCTCD3I6, 0, $19, $55);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $00);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $02);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $04);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $06);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $08);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $0a);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $0c);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $0e);
inc(DataAry);
DataAry^ := CTCD3I6_ReadWord(hCTCD3I6, 0, $10);

end;