Am и Pm в часах в Delphi

[TaYgA]

Здравствуйте дорогие эксперты. Нашёл ошибку в своей прогрумме-будильнике. Не могу правленьно написать, что если время больше 12:00 тогда PM, если после 00:00 тогда Am. Пробывал писать так:

  if (IntToStr(Hour)>'0') and (IntToStr(Hour)<'12') then lbAm.Visible:=True
    else lbPm.Visible:=True;

//IntToStr(Hour)-время в часах
//lbAm,lbPm- Label

В этом случаи у меня всегда показывает Pm

[anGeee]

Зачем вообще перегонять переменную Hour в строку ? Это же число насколько я помню. И вы уверены, что у вас правильно записывается время в переменную ?

[russian-stalker]

  if (IntToStr(Hour)>'0') and (IntToStr(Hour)<'12') then lbAm.Visible:=True

Попробуйте заменить на:

  if (Hour>=0) and (Hour<=12) then 
  begin
   lbAm.Visible:=True;
   lbPm.visible:=false 
  end else
  begin
   lbAm.visible:=false;
   lbPm.Visible:=true;
  end;

[TaYgA]

anGeee, да, это число, но оно находится в Lable. Время записано правельно...
russian-stalker, спасибо, пока всё работает