Проверка дат в Table

Проверка дат в Table

procedure TMainForm.Table2DATASetText(Sender: TField; const Text: string);
begin
  try
    Table2.Fields[1].Value := StrToDate(Text);
  except
    MessageDlg('Введите правильную дату!', mtError, [mbOk], 0);
    Abort;
  end;
end;

Где выгодно купить авто: купить трудовую книжку. . Касса ЖД-билетов - жд вагоны. . отдых в израиле . Ищешь качественную газонокосилку? Выбрать газонокосилку AL-KO Silver 520 BR Premium. . грузоперевозки 20 тонн москва .