dias que faltan para terminar el año a partir de la fecha de hoy

[ContraVeneno]

Código Delphi [-]
Function DiasParaNocheVieja:Integer;
Begin
   Result := DaysBetween(Now,EncodeDate(YearOf(Now),12,31));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage('Faltan '+inttostr(DiasParaNocheVieja)+' para que finalize el año.');
end;

//-------------------------------------
//------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage('Faltan '+inttostr(DaysBetween(Now,EncodeDate(YearOf(Now),12,31)))+' para que finalize el año.');
end;