Как правильно сравнить время?

[dzhezim]

вот пример кода:

procedure TForm1.FormActivate(Sender: TObject);
begin
 Form1.DateTimePicker1.Time:=StrToTime('8:00:00');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t1,y:TTime;
begin
  y:=StrToTime('12:00:00');
  t1:=Form1.DateTimePicker1.Time;
  if y>=t1 then ShowMessage(TimeToStr(y)+' >= '+TimeToStr(t1)) else
  ShowMessage(TimeToStr(y)+' < '+TimeToStr(t1));

end;

Получается
t1 = 8:00:00
y = 12:00:00
Так почему сравнивая эти переменные получаю: 12:00:00 < 8:00:00
Заранее спасибо!

[Terran]

У Вас код правильный. Странно, что не работает. Тут что-то не так при присваивании времени с DateTimePicker.
Как вариант можете сделать так:

t1:=StrToTime(TimeToStr(DateTimePicker1.Time));

Так будет работать.

[Hottabych]

Попробуйте

if frac(y)>=frac(t1) then

Так мы сравниваем дробную часть чисел, т.е. собственно время, а не дату-время

[dzhezim]

Terran, Hottabych, Спасибо, оба варианта работают