von einem Record eine prüfsumme erstellen

[Jackie1983]

hi

hat jemand eine idee wie ich von einem record
z.b.

Delphi-Quellcode:

  TMyHeader = packed record
    fKey     : string[50];
    fTime    : double;
    fTyp     : integer;
  end;

eine prüfsumme erstellen kann. Vielleicht mit XOR.
Kann mir da einer vielleicht helfen.....