Создаем calc поле в компоненте table
в свойстве вычесления калс поля пишем что то типа этого:
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:real;
begin
i:=(DateTimePicker2.Date-DateTimePicker1.Date);
if (round(i)>31) then label1.Caption:='Просроченно'
else label1.Caption:='Ok'
end;
ПС. просто пример разобрать его вполне просто.
Далее в грид добавляем это поле: