[Delphi] Losowanie

Czy nie zna ktos dobrego sposobu na losowanie np. komunikatów czy liczb. Bo randomize nie działa najlepiej ponieważ jak się np. wykona pierwsze losowanie i jest liczba 26 i się wyłączy program i jak się znowu włączy to przy pierwszym losowaniu znowu wylosuje 26. Ale chciałbym nie używać rejestru i zapamiętywania wylosowanych liczb.

jak to ?
mam takie coś :
begin
randomize;
showmessage('siema' + inttostr(random(50)));
end;
i za każdym razem liczba jest inna
albo :
begin
randomize;
case random(5) of
0 : showmessage('1');
1 : showmessage('2');
2 : showmessage('3');
3 : showmessage('4');
4 : showmessage('5');

end;
end;
też za każdym razem jest inny komunikat.

Trzeba używać Randomize do zainicjowania generatora liczb losowych !!!
Raz w programie (np. przy uruchomieniu) wpisz Randomize to ci się nie będą powtarzać.

taki maly OT (w sumie to zwiazany z tematem :] ) - na jakiej zasadzie (w mocnym skrocie - tak zebym jako tako zrozumial :) ) dziala losowanie liczb przez procesor? We wszelkich manualach, niezaleznie od jezyka, gdy jest opis funkcji losujacej prawie zawsze mowi sie o wynikowej liczbie jak o 'pseudo-losowej'. Ciekawi mnie jak przebiega ten proces, w koncu procesor nie potrafi zrobic czegos absolutnie przypadkowo/spontanicznie :).

w koncu procesor nie potrafi zrobic czegos absolutnie przypadkowo/spontanicznie :).

Najnowsze mogą.