Toto ti dá číslo v m do binárneho tvaru. Ak máš na vstupe hexadecimálny tvar v reťazci, tak to budeš musieť ešte pomocou Hex2Dec previesť na číslo:

uses
	StrUtils;

var
	m: Longint;
	P: String;

begin
	m := 559038737; // Hex2Dec('deadbeef');
	P := IntToBin(m, 32);
	WriteLn(P);
end.

00100001010100100100000100010001
[Finished in 0.0s]