[RuSp]

Помогите с "оптимизацией"... Подскажите как проще реализовать такой код? Знаю, что есть более простой вариант решения, по это и ищу..

Код:

procedure TForm1.Timer1Timer(Sender: TObject); //Зига 1
begin
  z1 := Random(49); //Рандомим значение для зиги 1
  ProgressBar1.Position := ProgressBar1.Position + z1;
  //Прибавляем к прогр бару рандом1
  Gauge1.Progress := ProgressBar1.Position; //Гауг приравниваем к бару зиги
  if ProgressBar1.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer1.Enabled = False then
    //Если Зиига 1 вырублена зигуем =))
    ShowMessage('\o 1 ');
end;

procedure TForm1.Timer2Timer(Sender: TObject); //Зига 2
begin
  z2 := Random(49); //Рандомим значение для зиги 2
  ProgressBar2.Position := ProgressBar2.Position + z2;
  //Прибавляем к прогр бару рандом2
  Gauge2.Progress := ProgressBar2.Position; //Гауг приравниваем к бару зиги
  if ProgressBar2.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer2.Enabled = False then
    //Если Зиига 2 вырублена зигуем =))
    ShowMessage('\o 2');
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  z3 := Random(49); //Рандомим значение для зиги 3
  ProgressBar3.Position := ProgressBar3.Position + z3;
  //Прибавляем к прогр бару рандом3
  Gauge3.Progress := ProgressBar3.Position; //Гауг приравниваем к бару зиги
  if ProgressBar3.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer3.Enabled = False then
    //Если Зиига 3 вырублена зигуем =))
    ShowMessage('\o 3');
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  z4 := Random(49); //Рандомим значение для зиги 4
  ProgressBar4.Position := ProgressBar4.Position + z4;
  //Прибавляем к прогр бару рандом4
  Gauge4.Progress := ProgressBar4.Position; //Гауг приравниваем к бару зиги
  if ProgressBar4.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer4.Enabled = False then
    //Если Зиига 4 вырублена зигуем =))
    ShowMessage('\o 4');
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
  z5 := Random(49); //Рандомим значение для зиги 5
  ProgressBar5.Position := ProgressBar5.Position + z5;
  //Прибавляем к прогр бару рандом5
  Gauge5.Progress := ProgressBar5.Position; //Гауг приравниваем к бару зиги
  if ProgressBar5.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer5.Enabled = False then
    //Если Зиига 5 вырублена зигуем =))
    ShowMessage('\o 5');
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
  z6 := Random(49); //Рандомим значение для зиги 6
  ProgressBar6.Position := ProgressBar6.Position + z6;
  //Прибавляем к прогр бару рандом6
  Gauge6.Progress := ProgressBar6.Position; //Гауг приравниваем к бару зиги
  if ProgressBar6.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer6.Enabled = False then
    //Если Зиига 6 вырублена зигуем =))
    ShowMessage('\o 6');
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
  z7 := Random(49); //Рандомим значение для зиги 7
  ProgressBar7.Position := ProgressBar7.Position + z7;
  //Прибавляем к прогр бару рандом7
  Gauge7.Progress := ProgressBar7.Position; //Гауг приравниваем к бару зиги
  if ProgressBar7.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer7.Enabled = False then
    //Если Зиига 7 вырублена зигуем =))
    ShowMessage('\o 7');
end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
  z8 := Random(49); //Рандомим значение для зиги 8
  ProgressBar8.Position := ProgressBar8.Position + z8;
  //Прибавляем к прогр бару рандом8
  Gauge8.Progress := ProgressBar8.Position; //Гауг приравниваем к бару зиги
  if ProgressBar8.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer8.Enabled = False then
    //Если Зиига 8 вырублена зигуем =))
    ShowMessage('\o 8');
end;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
  z9 := Random(49); //Рандомим значение для зиги 9
  ProgressBar9.Position := ProgressBar9.Position + z9;
  //Прибавляем к прогр бару рандом9
  Gauge9.Progress := ProgressBar9.Position; //Гауг приравниваем к бару зиги
  if ProgressBar9.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer9.Enabled = False then
    //Если Зиига 9 вырублена зигуем =))
    ShowMessage('\o 9');
end;

procedure TForm1.Timer10Timer(Sender: TObject);
begin
  z10 := Random(49); //Рандомим значение для зиги 10
  ProgressBar10.Position := ProgressBar10.Position + z10;
  //Прибавляем к прогр бару рандом10
  Gauge10.Progress := ProgressBar10.Position; //Гауг приравниваем к бару зиги
  if ProgressBar10.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer10.Enabled = False then
    //Если Зиига 10 вырублена зигуем =))
    ShowMessage('\o 10');
end;