[Black Raider]

Создаем 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;

ПС. просто пример разобрать его вполне просто.

Далее в грид добавляем это поле: