Problem mit Zufalls zahlen!

[Skyrunner2]

also in einer funktion wird ein zufälliges element aus einer TQueue ausgelesen.

doch irgentwir ist die zufalls zahl immer die selebe:

(ICH RATE ZUM ZUSAMMENFALTEN!)

Code:

Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:2
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:3
Tmaze.RandomTQueueItem: Zufälliges element:1 aus:4

hier mal die funktion mit der ich die elemente zufällig auswähle:

Delphi-Quellcode:

function Tmaze.RandomTQueueItem(Q:TQueue):Pointer; //Zufälliges Element aus der liste suchen
var i:integer;
begin
LogForm.APPEND('Tmaze.RandomTQueueItem: Hello',3);
   randomize;
   for i:=0 to random(Q.Count) do
        Q.Push(Q.Pop);
   LogForm.APPEND('Tmaze.RandomTQueueItem: Zufälliges element:'+inttostr(i)+' aus:'+inttostr(Q.Count),0);
   RandomTQueueItem:=Q.Pop;
LogForm.APPEND('Tmaze.RandomTQueueItem: Goodbye',3);
end;

es ist nicht IMMER 1. die funktion wird in einer for schleife mit ~ 10 anderen zeilen code aufgerufen, also sehr sehr häufig.
is sind immer "blöcke" an selben zaheln...

all dies passiert in rahmen einer Labyrinth erstellungs prozedure, und zu schluss sieht das labyrinth dann nicht soo labyrinthig aus(siehe attachment)