procedure TForm1.Button1Click(Sender: TObject);
var
   R : Byte ;
   Sel : Byte ;
   Out0, Out1, Out2 : Byte ;
   In0, In1, In2 : Byte ;
   In0n, In1n, In2n : Byte ;
begin
     Memo1.Lines.Clear ;

     for Sel := 0 to 7 do
      begin
           In0 := Sel and $01 ;
           In1 := Sel and $02 shr 1 ;
           In2 := Sel and $04 shr 2 ;

           In0n := not (In0) and $01 ;
           In1n := not (In1) and $01 ;
           In2n := not (In2) and $01 ;

           Out0 :=  (In2n and In1n and In0n) or (In2n and In1n and In0) or (In2n and In1 and In0)
                 or (In2 and In1n and In0) or (In2 and In1 and In0) ;

           Out1 :=  (In2n and In1n and In0n) or (In2n and In1 and In0n)
                 or (In2n and In1 and In0) or (In2 and In1 and In0n)
                 or (In2 and In1 and In0) ;

           Out2 :=  (In2n and In1n and In0n) or (In2 and In1n and In0n)
                 or (In2 and In1n and In0) or (In2 and In1 and In0n)
                 or (In2 and In1 and In0) ;

           R := (Out2 shl 2) or (Out1 shl 1) or Out0 ;

           Memo1.Lines.Add('Sel='+IntToStr(Sel)+', value = '+IntToStr(R)) ;
      end ;
end;