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

Оформил: DeeCo

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