var n: Integer;
// ...
packingDate := DateTimePicker1.Date; // Ну, или откуда ты там берешь дату упаковки...
n := DaysBetween(Today, packingDate) - 365;
case n of
-10 .. -1: ShowMessage(format('Срок годности продукта истекает! Осталось дней: %d ', [abs(n)]));
0: ShowMessage('Срок годности продукта истекает сегодня!');
1 .. 10: ShowMessage(format('Срок годности продукта истек! Просрочено дней: %d ', [n]));
end;