Checksum 을 검색해보니 아래와 같은 예가 나왔는데 어찌 사용을 해야할지모르겠습니다.

펑션으로 사용을 할생각이었는데  타입도 어찌 주어야 할지 모르겠습니다.

보내려는 데이타는
STX+'1H|^&||DPC|Sender|111 Canfield Ave^Randolph^NJ^07869||(201)927-2828|N81|Receiver||P|1|'+formatdatetime('yyyymmddhhmmss',now)+CR+ETX+'51'+CR+LF)
이구요.

고수님들 예제로 사용방법 좀 답변바랍니다... 답답하네요.

보낼테이터나 갯수같은것도 어찌 지정하는지 자세히 알려주시면 더욱  도움이 되겠습니다.
감사합니다.
______________________________________________________________________________
[송신쪽]
var
checkbyte : Byte;
begin
checkbyte := 0;
for i:=1 to 전체 보낼 데이터 갯수 do
begin
   checkbyte := checkbyte xor 보낼 데이터;
end;
데이터 포맷대로 데이터 보냄.
checkbyte 데이터 보냄.

[수신쪽]
var
checkbyte : Byte;
begin
checkbyte := 0;
while TRUE do
begin
   데이터 수신
   checkbyte := checkbyte xor 수신된 데이터;
   if 수신된 데이터가 CRLF면 break;
end;
한 바이트 데이터 수신

if checkbyte = 한 바이트 수신된 데이터 then 정상수신
                                        else 데이터 깨짐이나 비정상 수신