Restzeit von einen Countdown

[Amateurprofi]

so müßte es funktionieren

Delphi-Quellcode:

var endtime:TDateTime;

procedure TMain.Button1Click(Sender: TObject);
begin
   endtime:=Now+EncodeTime(StrToInt(Edit1.Text),StrToInt(Edit2.Text),
                                 StrToInt(Edit3.Text),0);
   Timer1.Interval:=500; // nicht 1000
   Timer1.Enabled:=true;
end;

procedure TMain.Timer1Timer(Sender: TObject);
var hh,mm,ss,ms:word; timetoend:TDateTime;
begin
   timetoend:=endtime-Now;
   if timetoend<0 then timetoend:=0;
   DecodeTime(timetoend,hh,mm,ss,ms);
   Edit1.Text:=IntToStr(hh);
   Edit2.Text:=IntToStr(mm);
   Edit3.Text:=IntToStr(ss);
   if timetoend>0 then exit;
   Timer1.enabled:=false;
   ShowMessage('Deine Zeit ist abgelaufen.');
end;