Private
Inicio : tDateTime ;
mm,dm,ss,z: integer;
intervalo : String ;
procedure TForm1.Button1Click(Sender: TObject);
begin
Inicio := Now ;
timer1.enabled:=true;
mm:=strtoint(Edminutos.text);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
intervalo:= FormatDateTime('nn:ss:z',Now - Inicio);
dm:=mm-strtoint(intervalo[1]+intervalo[2]);
if strtoint(intervalo[1]+intervalo[2])=mm then timer1.enabled:=false;
ss:= 60 - strtoint(intervalo[4] + intervalo[5]);
z:= 10 - strtoint(intervalo[7]);
label1.caption:= inttostr(dm-1) + ':' + inttostr(ss) + ':' + inttostr(z);
end;