Yo ya no entendí de qué a qué quieres convertir. Dices que quieres pasar la cadena binaria a hexadecimal paa que ocupe menos caracteres. ¿No te sirve mejor pasarla directamente a un entero? Podrías hacerlo con una función como esta:
Código Delphi
[-]
function BinStrToDec(BinStr: String): Integer;
var
Pot2, I: Integer;
begin
Pot2 := 1;
Result := 0;
for I := Length(BinStr) downto 1 do
begin
if BinStr[i] = '1' then
Inc(Result, Pot2);
Pot2 := 2*Pot2;
end;
end;
Y en todo caso, concantenar ésta con IntToHex.
// Saludos