Zufallszahlenproblem

**Uceo**

Hallo, ich habe ein Problem mit Zufallszahlen! Hier ein kleiner Abschnitt aus dem Code:

Delphi-Quellcode:

			randomize;

aktie1 := random(200) + 1;

label2.Caption := IntTostr(aktie1) + ' €';

aktie2 := random(200) + 1;

label5.Caption := IntTostr(aktie1) + ' €';

aktie3 := random(200) + 1;

label8.Caption := IntTostr(aktie1) + ' €';

aktie4 := random(200) + 1;

label11.Caption := IntTostr(aktie1) + ' €';

Ich bekomme jetzt aber immer für jede der 4 Variablen die gleiche Zufallszahl. Da Delphi ja für Zufallszahlen die Uhr zu Hilfe nimmer, habe ich es schon zwischen den einzelnen Abschnitten mit Sleep probiert, aber es will nicht gehen! Wie kann ich das machen? Danke!

Zufallszahlenproblem

Zufallszahlenproblem

Forumregeln