ちなみに、1回の試行ってコレでいいんだよね？

function play1:Integer;
begin
　 Result:=1;
　 while (MyRandom32 and $100)=0 do Result:=Result*2;
end;