[luisgutierrezb]

Tambien te podria funcionar si tienes delphi 5 o menor que no cuenta con la funcion Dayoftheyear:

Código Delphi [-]
  DiaActual := Trunc(Now) - Trunc(encodeDate(year(now),1,1));