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

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

Взято с сайта: https://www.swissdelphicenter.ch