Mira la función HexTobin en la ayuda.
Código Delphi
[-]
function HextoBinEx(hexa:string):string;
var buffer: array of string;
BuffSize:integer;
begin
BuffSize := length(hexa)*2;
setlength( buffer, BuffSize);
{$T-}
HexTobin(pansichar(lowercase(hexa)), @buffer, BuffSize);
{$T+}
Result := buffer;
end;
De memoria sería así, tendrá errores.
Saludos