Ну а в чем проблема?)
Делишь, число переводишь в string, и смотришь есть ли "," или ".", если есть, то значит число не делится без остатка . без деления никак )

function Is1024(Number,Divider:string):boolean;
var i : integer;
begin
i:=0;
result:=true;
for I:=1 to 10 do
begin
Number:=ulDiv(Number,Divider,10);
if Number='1' then break;
if Pos('.',Number)<>0 then
begin
result:=false;
break;
end;
end;
end;