ProgressBar für Anfänger

[rossinie00]

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Zufallszahl, eingabe, summe: integer;
  durchschnitt: real;
begin
  RANDOMIZE;
  eingabe := strtoint(edit1.text);
  Memo1.Lines.Clear;
  for i := 1 to 10 do
  begin
    timer
    Zufallszahl := Random(eingabe);
    memo1.Lines.Add(inttostr(Zufallszahl));
    summe := summe + ZufallsZahl;
    Progressbar1.Position := i;
  end;
  durchschnitt := summe / 10;
  for j := 0 to 3 do
    begin
      memo1.Lines.Add('');
    end;
  memo1.Lines.Add(FloatToStr(durchschnitt));
end;

und nu