간단하게 Little/Big Endian 확인하기

function IsBigEndian: Boolean;
var
  w: Word;
  c: PChar;
begin
  w := 1;
  c := Addr(w);
  
  //True = Big, False = Little
  Result := Byte(C^) = 0;
end;