variabel tidtildeling

Du kan jo sætter en spinbutton på din form, og på Spinbuttons onChange event

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Timer1.Interval := SpinEdit1.Value*60000;
end;


Så stiller du tiden i minutter

Du bruger endnu en variabel til tiden (TotalTid), som du kan sætte f.eks vha. en spinbutton eller en editbox:

var
  Tid,TotalTid: integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  dec(Tid);
  label1.caption := IntToStr(Tid);
  If tid = 0 then
  begin
    Timer1.enabled := False;
    Label1.caption := 'Tiden er udløbet';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
(* Starter tiden *)
begin
  Tid := TotalTid;
  Label1.caption := IntToStr(TotalTid);
  Timer1.enabled:=True;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  TotalTid:= SpinEdit1.Value*10;
  (* Sætter tiden til 10, 20, 30 minutter for 1, 2 og 3 *)
  (* Husk at sætte min og max *)
  label2.caption := IntToStr(TotalTid);
  (* Viser den satte tid *)
end;


Hvis du vil have nedtælling med sekunder, kan du bruge:

Timer1.Interval := 1000;  (*sekunder*)

TotalTid := 600; (*600 sekunder = 10 minutter*)

Label1.caption := IntToStr(Tid DIV 60)+':'+IntToStr(Tid MOD 60);
(* Viser resterende tid i formatet:  8:47  *)