Testa se a hora é antes de meio dia

Function IsAM: Boolean;
begin
Result := Frac(Time) < 0.5
end;