Проблема с чтением байтов

[Mik92]

Я знаю что байты передаются задом на перед но как их в нормальное состояние привести? Читаю по адресу его байты но они выводятся задом на перед. помогите пожалуйста

function Get_b: String;
var
  ASize: Integer;
  h: DWORD;
  Val: NativeUInt;
  WinName, PId, WinHandle: Integer;
begin
  Result := '';

  WinName := FindWindow(nil,'test1');
  GetWindowThreadProcessId(WinName,@PId);
  WinHandle:= OpenProcess(PROCESS_ALL_ACCESS,False,PId);
  if WinHandle <> 0 then
  //showmessage('окно найдено');
  begin
    h := 0;
    Val := 0;
    ASize := 4;

    ReadProcessMemory(WinHandle, Pointer($1591F6), @h, ASize, Val);

    Result := IntToStr(h);
  end;
  CloseHandle(WinHandle);
end;

Через эту функцию байты выводятся в dec, если перевести в hex то они задом на перед стоят.

[BDA]

function SwapEndian(Value: DWORD): DWORD; register;
asm
bswap eax
end;
...
Result := IntToStr(SwapEndian(h));