[AND_REY]

Ещё вариант:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 DW: DWORD;  //32b
 B9, B15: Byte;    //8b
 i: Integer;
begin
 //DW:= 16128;   //00000000 00000000 00111111 00000000
 DW:= 1032192; //00000000 00001111 11000000 00000000
 B9:= 0; B15:= 0;
 For i:= 8 To 14 Do if ((DW Shr i) And 1) = 1 Then B9:= ((1 shl (i - 8)) Or B9);
 For i:= 14 To 20 Do if ((DW Shr i) And 1) = 1 Then B15:= ((1 shl (i - 14)) Or B15);
 //И.т.д.
 Form1.Caption:= IntToStr(B15); //B = 63, 111111
end;