Спасибо за совет.
Код:
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;
А с таким кодом, что посоветуете?