[lmikle]

Да тут немного другое нужно:

Код:

const
  mByte : Byte = 255;
var
  I : Integer;
  W : DWORD; // 4 байта
  B : Array [0..3] Of Byte;
begin
  For I := 3 DownTo 0 Do
    Begin
      B[i] := W And mByte;
      W := W shr 8;
    End;

  S := '';
  For I := 0 To 3 Do
    S := S + Chr(B[i]);
end;

ну а десятичную и двоичную формы сам сообразишь как.