1:
2:
3:
4:
5:
6:

var
temp, temptime : string;
begin
//...temp auslesen -> in temptime steht z.B. 09:27:15
  temptime := FormatDateTime('hh:mm:ss', StrtoTime(temp));
  XMLEinstellTimer.Interval := SecondsBetween(Now,StrtoTime(temptime))*1000;					

1:
2:
3:
4:
5:
6:

  temptime := StrtoTime(FormatDateTime('hh:mm:ss', temp));
  temptimenow := StrtoTime(FormatDateTime('hh:mm:ss', now));
  if temptime < temptimenow then
       XMLEinstellTimer.Interval := ((24*60*60)- SecondsBetween(temptimenow,temptime))*1000
  else
  XMLEinstellTimer.Interval := (SecondsBetween(temptimenow,temptime))*1000;					

1:

XMLEinstellTimer.Interval := (SecondsBetween(now - trunc(now),temptime))*1000;