Minut nedtæller?

du kunne lave en timer, og gange dit minut tal med 60 trække een fra, og bruge denne funktion til at vise din resterende tid på en label:

function SecToStr(const i_Secs: LongInt): string;
var
  H: Integer;
  M: Integer;
  S: Integer;
begin
  h := (i_Secs div 60) div 60 mod 60;
  m := (i_Secs div 60) mod 60;
  s := i_Secs mod 60;
  Result := Format('%2.2d:%2.2d:%2.2d', (.H, M, S.)) ;
end;


dvs noget i denne dur=

under Public declarations

FTid: Integer;

ved tryk på knap etc.:
FTid := 15*60;

på OnTimer:

Dec(FTid, 1);
Label1.Caption := SecToStr(FTid);

Takker mange gange for svaret...!

takker for point :)