select ..., convert(int,binaryfield) as bf from ....

var s : string;
begin
s:=format('%x',[ADODataSet1.fieldByName('bf').asInteger]);
s:='0x'+StringOfChar('0', 20 -length(s))+s;

edit1.text:=s;
end;

select ...,  
cast(substring(binaryfield, 1 , 2 ) as int) as bf1, 
cast(substring(binaryfield, 3 , 2 ) as int) as bf2,
cast(substring(binaryfield, 5 , 2 ) as int) as bf3, 
cast(substring(binaryfield, 7 , 2 ) as int) as bf4,
cast(substring(binaryfield, 9 , 2 ) as int) as bf5

from Table1

procedure ...Form.Button1Click(Sender: TObject);
var i : integer;
function hexs(c : integer) : string;
begin
result:=format('%x',[c]);
result:=StringOfChar('0', 4 -length(result))+result;
end;

begin
edit1.text:='';
for i:= 1  to  5  do
edit1.text:=edit1.text+hexs(ADODataSet1.fieldByName('bf'+inttostr(i)).asinteger)
edit1.text:='0x'+edit1.text;
end;