procedure
TForm1
.
ComboBox1Change(Sender: TObject);
begin
OnOffTimers(
False
);
PBP(
0
);
GP();
Button1
.
Caption :=
'GO!!'
;
n := StrToInt(ComboBox1
.
Text);
if
n =
2
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
false
;
Gauge3
.
Visible :=
false
;
Label3
.
Visible :=
false
;
ProgressBar4
.
visible :=
false
;
Gauge4
.
Visible :=
false
;
Label4
.
Visible :=
false
;
ProgressBar5
.
visible :=
false
;
Gauge5
.
Visible :=
false
;
Label5
.
Visible :=
false
;
ProgressBar6
.
visible :=
false
;
Gauge6
.
Visible :=
false
;
Label6
.
Visible :=
false
;
ProgressBar7
.
visible :=
false
;
Gauge7
.
Visible :=
false
;
Label7
.
Visible :=
false
;
ProgressBar8
.
visible :=
false
;
Gauge8
.
Visible :=
false
;
Label8
.
Visible :=
false
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
3
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
false
;
Gauge4
.
Visible :=
false
;
Label4
.
Visible :=
false
;
ProgressBar5
.
visible :=
false
;
Gauge5
.
Visible :=
false
;
Label5
.
Visible :=
false
;
ProgressBar6
.
visible :=
false
;
Gauge6
.
Visible :=
false
;
Label6
.
Visible :=
false
;
ProgressBar7
.
visible :=
false
;
Gauge7
.
Visible :=
false
;
Label7
.
Visible :=
false
;
ProgressBar8
.
visible :=
false
;
Gauge8
.
Visible :=
false
;
Label8
.
Visible :=
false
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
4
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
false
;
Gauge5
.
Visible :=
false
;
Label5
.
Visible :=
false
;
ProgressBar6
.
visible :=
false
;
Gauge6
.
Visible :=
false
;
Label6
.
Visible :=
false
;
ProgressBar7
.
visible :=
false
;
Gauge7
.
Visible :=
false
;
Label7
.
Visible :=
false
;
ProgressBar8
.
visible :=
false
;
Gauge8
.
Visible :=
false
;
Label8
.
Visible :=
false
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
5
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
true
;
Gauge5
.
Visible :=
True
;
Label5
.
Visible :=
True
;
ProgressBar6
.
visible :=
false
;
Gauge6
.
Visible :=
false
;
Label6
.
Visible :=
false
;
ProgressBar7
.
visible :=
false
;
Gauge7
.
Visible :=
false
;
Label7
.
Visible :=
false
;
ProgressBar8
.
visible :=
false
;
Gauge8
.
Visible :=
false
;
Label8
.
Visible :=
false
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
6
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
true
;
Gauge5
.
Visible :=
True
;
Label5
.
Visible :=
True
;
ProgressBar6
.
visible :=
true
;
Gauge6
.
Visible :=
True
;
Label6
.
Visible :=
True
;
ProgressBar7
.
visible :=
false
;
Gauge7
.
Visible :=
false
;
Label7
.
Visible :=
false
;
ProgressBar8
.
visible :=
false
;
Gauge8
.
Visible :=
false
;
Label8
.
Visible :=
false
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
7
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
true
;
Gauge5
.
Visible :=
True
;
Label5
.
Visible :=
True
;
ProgressBar6
.
visible :=
true
;
Gauge6
.
Visible :=
True
;
Label6
.
Visible :=
True
;
ProgressBar7
.
visible :=
true
;
Gauge7
.
Visible :=
True
;
Label7
.
Visible :=
True
;
ProgressBar8
.
visible :=
false
;
Gauge8
.
Visible :=
false
;
Label8
.
Visible :=
false
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
8
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
true
;
Gauge5
.
Visible :=
True
;
Label5
.
Visible :=
True
;
ProgressBar6
.
visible :=
true
;
Gauge6
.
Visible :=
True
;
Label6
.
Visible :=
True
;
ProgressBar7
.
visible :=
true
;
Gauge7
.
Visible :=
True
;
Label7
.
Visible :=
True
;
ProgressBar8
.
visible :=
true
;
Gauge8
.
Visible :=
True
;
Label8
.
Visible :=
True
;
ProgressBar9
.
visible :=
false
;
Gauge9
.
Visible :=
false
;
Label9
.
Visible :=
false
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
9
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
true
;
Gauge5
.
Visible :=
True
;
Label5
.
Visible :=
True
;
ProgressBar6
.
visible :=
true
;
Gauge6
.
Visible :=
True
;
Label6
.
Visible :=
True
;
ProgressBar7
.
visible :=
true
;
Gauge7
.
Visible :=
True
;
Label7
.
Visible :=
True
;
ProgressBar8
.
visible :=
true
;
Gauge8
.
Visible :=
True
;
Label8
.
Visible :=
True
;
ProgressBar9
.
visible :=
true
;
Gauge9
.
Visible :=
True
;
Label9
.
Visible :=
True
;
ProgressBar10
.
visible :=
false
;
Gauge10
.
Visible :=
false
;
Label10
.
Visible :=
false
;
end
;
if
n =
10
then
begin
ProgressBar1
.
visible :=
true
;
Gauge1
.
Visible :=
True
;
Label1
.
Visible :=
True
;
ProgressBar2
.
visible :=
true
;
Gauge2
.
Visible :=
True
;
Label2
.
Visible :=
True
;
ProgressBar3
.
visible :=
true
;
Gauge3
.
Visible :=
True
;
Label3
.
Visible :=
True
;
ProgressBar4
.
visible :=
true
;
Gauge4
.
Visible :=
True
;
Label4
.
Visible :=
True
;
ProgressBar5
.
visible :=
true
;
Gauge5
.
Visible :=
True
;
Label5
.
Visible :=
True
;
ProgressBar6
.
visible :=
true
;
Gauge6
.
Visible :=
True
;
Label6
.
Visible :=
True
;
ProgressBar7
.
visible :=
true
;
Gauge7
.
Visible :=
True
;
Label7
.
Visible :=
True
;
ProgressBar8
.
visible :=
true
;
Gauge8
.
Visible :=
True
;
Label8
.
Visible :=
True
;
ProgressBar9
.
visible :=
true
;
Gauge9
.
Visible :=
True
;
Label9
.
Visible :=
True
;
ProgressBar10
.
visible :=
true
;
Gauge10
.
Visible :=
True
;
Label10
.
Visible :=
True
;
end
;
end
;