Определить, сейчас до или после полудня

procedure AM_or_PM;
begin
  if Frac(Time) = 0 then
    ShowMessage('AM')
  else
    ShowMessage('PM');
end;