function Swap32(V: LongWord): LongWord;
var
  a: array[0..1] of Word absolute V;
begin
  a[0] := Swap(a[0]);
  a[1] := Swap(a[1]);
  Swap32 := V;
end;