[roman]

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