nedtælling

Du bruger en timer hvor du stiller tiden til 60000 (1 minut)


var tid: 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 := 10;
  Label1.caption := '10';
  Timer1.enabled:=True;
end;

takker )))