[fossil]

Всем спасибо, все свободны

Код:

var
    sbin:string;
   shex:string
......
  sbin:=UNIQuery1.FieldList.Fields[2].AsString;
  SetLength(sHex, Length(sBin) * 2);
  BinToHex(PChar(sBin), PChar(sHex), Length(sBin));