Вот такой маразм не прокатывает:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
p: pointer;
pSize: integer;
i: integer;
begin
pSize := SizeOf(longint)*8+1;
WriteLn(pSize);
GetMem(p,pSize);
FillChar(p^,pSize,0);
Integer(p^) := 4294967296;
for i := pSize-1 downto 0 do
Write((Integer(p^) shr i)and $1);
WriteLn;
FreeMem(p,pSize);
readln;
end.
Объявлять массив Байтов и делать перегрузку +- не интересно.