Delphi-Quellcode:
Zufallszahl := Random(eingabe);
memo1.Lines.Add(inttostr(Zufallszahl));
summe := summe + ZufallsZahl;
Progressbar1.Position := i;
das müsste ins onTimer event deines timers, aber das mit der progressbarposition stimmt nicht, da die dann nur einmal in 2 sekunden ausgeführt würde