もちろん完全にランダムじゃないけど
乱数種の一つとして

function RDTSCm:integer;
asm
　DW $310F //RDTSC
　XOR EAX,EDX
　IMUL EAX,65535
end;