работа с таймером - Delphi - Ответ 13680374

  Form3: TForm3;
  time,k,k1,k2,k3: integer;
implementation
 
uses Unit2, Unit1;
 
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
begin
 case stol of
   1 : begin
         Timer1.Enabled :=true;
       end;
   2 : begin
         Timer2.Enabled :=true;
       end;
   3 : begin
         Timer3.Enabled :=true;
 
       end;
   4 : begin
         Timer4.Enabled :=true;
       end;
 end;
end;
 
procedure TForm3.ComboBox1Change(Sender: TObject);
begin
 case ComboBox1.ItemIndex of
  0 : begin
    label1.Caption := '30 минут';
    label2.Caption := '250 тенге';
    time :=1800;
  end;
  1 : begin
    label1.Caption := '1 час';
    label2.Caption := '500 тенге';
     time :=3600;
  end;
  2 : begin
    label1.Caption := '2 часа';
    label2.Caption := '800 тенге';
     time :=3600;
  end;
  3 : begin
    label1.Caption := '3 часа';
    label2.Caption := '1000 тенге';
    time :=10800;
  end;
 
  end;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
    k := 0;
    k1 := 0;
    k2 := 0;
    k3 := 0;
//dbtarif.KeyValue := dbtarif.ListSource.DataSet.FieldByName(dbtarif.KeyField).Value;
end;
 
procedure TForm3.FormShow(Sender: TObject);
begin
 
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT DISTINCT наименование FROM меню');
  ADOQuery1.Open;
   // ---------Заполняем ComboBox1 ---------- //
  ComboBox1.Items.Clear;
  While not ADOQuery1.Eof do
  begin
     ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
     ADOQuery1.Next;
  end;
end;
 
 
procedure TForm3.Timer1Timer(Sender: TObject);
var h,m,s :word;
begin
 h :=(time-k )div 3600;
 m :=((time-k)-h*3600) div 60;
 s :=(time-k)-h*3600-m*60;
 if k<time then begin
   form1.lb1.Caption := Format('%d : %d :  %d',[h,m,s]);
 end;
inc(k);
end;
 
procedure TForm3.Timer2Timer(Sender: TObject);
var h,m,s :word;
begin
 h :=(time-k1 )div 3600;
 m :=((time-k1)-h*3600) div 60;
 s :=(time-k1)-h*3600-m*60;
 if k1<time then  begin
  form1.lb2.Caption := Format('%d : %d :  %d',[h,m,s]);
 
 
 
end;
inc(k1);
end;
 
end.