Differenz 2erDatum in Tmemo

[danku]

ich hab mir mal den bsp.progg heruntergeloadet. du hast mich auf eine idee gebracht.
das mit dem "kalenderblatt" war mir klar. nur wusste ich noch nicht wie diese komponente heißt.
ich will ja nichts sagen: aber kann es sein das bei dir ein fehler im code ist?

ich habe das mal bei mir getestet und bei mir setzt der countdown nach 4sec aus, d.h. es wird nicht weiter nach unten gezählt

Delphi-Quellcode:

procedure Tfmclock.timerzeitTimer(Sender: TObject);

//////// ZEITDAUER IN MIN///////////////////////////////////////
      procedure ShowRemainingTime2(dtAlarm2: TDateTime);
      var  dtRemaining2: TDateTime;
      h, m, s, ms: Word;
      begin

      dtRemaining2 := dtAlarm2 - Now;
      DecodeTime(dtRemaining2, h, m, s, ms);
      Inc(h, 24 * Trunc(dtRemaining2));
      Caption := Format('%.2d:%.2d:%.2d', [h, m, s]);

      meHours.Text := IntToStr(h);
      meMin.Text := IntToStr(m);
      meSeconds.Text := IntTostr(s);
      end;


/////////////////////////////////////
      function RestOfSecond: Word;
      var  h, m, s: Word;
      begin
      DecodeTime(Now, h, m, s, Result);
      end;
///////////////////////////////////////


begin

if cbsignal.Checked=false
then begin timerzeit.Enabled:=false;
             showmessage('Signaldatei auswählen!');
             rgeins.Checked:=true;
             rgzwei.Enabled:=true
             end
else begin
      edzeit.enabled:=false;
      sbzeit.Enabled:=false;
      with Sender as TTimer do
        begin
          Enabled := False;
          if dtpTime.DateTime > Now then
          begin
            ShowRemainingTime2(dtpTime.DateTime);
            InterVal := RestOfSecond;
            Enabled := True;
        end

    else begin //datei abspielen
...