Angenommen, Du hast ein privates Feld "FTimeUntil" vom Typ TTime definiert. Dann ginge doch so etwas (Zuweisung mittels 2 Edits ohne Fehlerprüfung):
Delphi-Quellcode:
procedure TForm1.btn1Click(Sender: TObject);
begin
FTimeUntil := Date + StrToTime(Format('%s:%s',[edtHour.Text,edtMinute.Text]));
cdTimer.Enabled := True;
end;
Und im Timer-Event dann so:
Delphi-Quellcode:
procedure TForm1.cdTimerTimer(Sender: TObject);
var RemainingSeconds: Cardinal;
begin
RemainingSeconds := SecondsBetween(Now,FTimeUntil);
lblRemaining.Caption := Format('Noch %.2d:%.2d:%.2d bis %s',
[RemainingSeconds div 3600,
RemainingSeconds div 60 mod 60,
RemainingSeconds mod 60,
FormatDateTime('hh:mm',FTimeUntil)]);
end;