procedure TForm1.StartClick(Sender: TObject);
var
i,k: Integer;
begin
k:= SpinEdit1.value;
Setlength(Balken,k);
For i:= low(Balken)+1 to high(balken)+1 do
  begin
    Balken[i]:=TBalken.Create();
    Balken[i].Create;
    Balken[i].Wert:=Random(50)+1;
    Memo1.Lines.Add(IntToStr(i)+'. '+IntToStr(Balken[i].wert));
  end;
Canvas.Create;
Form1.PaintBox1Paint(Start);
SpinEdit1.Enabled:=false;
Start.Enabled:=false;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
For i:= 1 to high(Balken) do Balken[i].Free;
end;

procedure TForm1.ResetClick(Sender: TObject);
var
i: Integer;
begin
PaintBox1.Invalidate;
Start.Enabled:=True;
SpinEdit1.Enabled:=True;
For i:= 1 to high(balken) do
  begin
    Balken[i].free;
  end;
end;

end.