[Aristarh Dark]

NumLock, спасибо, но внешние модули подтягивать не желательно.
Совмесно с M.A.D.M.A.N. было написано две процедуры:

Код:

procedure SetCardinal(const Value:Cardinal; Dest:Pointer);
begin
asm
  mov eax, Value
  mov edx, eax
  shr edx, 16
  xchg dh, dl
  xchg ah, al
  shl eax, 16
  mov ax, dx
  mov ecx, Dest
  mov [ecx], eax
end;
end;

и

Код:

procedure SetWord(const Value:Word; Dest:Pointer);
begin
asm
  mov ax, value
  xchg ah, al
  mov ecx, Dest
  mov [ecx], ax
end;
end;

для 4 и 2 байтовых чисел соответственно.
Первый параметр - что, второй - указатель куда положить.