if SameValue(StrToTime(WL.Strings[1])-StrToTime(MyTime),StrToTime('00:00:05')) = true then
Da kommt aber auch 'verschieden' raus. Ich versteh es nicht
EDIT : Habs jetzt damit:
if SameTime(StrToTime(WL.Strings[1])-StrToTime(MyTime),StrToTime('00:02:00')) = true then
hinbekommen. Aber danke für den Hinweis, sonst wäre ich wohl nicht auf SameTime gestoßen