Vielleicht geht es so?
Delphi-Quellcode:
Function TForm1.CalcBCC(Dat : Array of Byte ; C : Integer ; ETX : Byte):Byte;
var
I : Integer;
begin
result :=dat[0]; //<- korregiert
for I := 1 to high(dat) do
Result := result xor Dat[i];
Result := Result xor ETX;
end;
... oder kannst Du mal eine Beispeilsequenz mit einem richtigen Ergebnis posten?
Grüße
Klaus