von einem Record eine prüfsumme erstellen

[Apollonius]

Eher so:

Delphi-Quellcode:

var
p: PByte;
i: Integer;
CheckSum: Byte;
begin
  p := @MyHeader;
  CheckSum := 0;
  for i := 1 to SizeOf(MyHeader) do
  begin
    CheckSum := CheckSum xor p^;
    Inc(p);
  end;