Запрет на добавление записи в бд, если поле осталось пустым - Delphi БД

как сделать чтобы если поле пустое выдавало ошибку и не добавляло в бд?

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
DataModule2.ADOTable1.Insert;
DataModule2.ADOTable1.FieldByName('fio').Text:=Edit2.Text;
DataModule2.ADOTable1.FieldByName('tab_nomer').Text:=Edit1.Text;
DataModule2.ADOTable1.FieldByName('dr').Value:=Datetostr(Form4.DateTimePicker2.Date);
DataModule2.ADOTable1.FieldByName('podr').Text:=ComboBox1.Text;
DataModule2.ADOTable1.FieldByName('dolj').Text:=ComboBox2.Text;
DataModule2.ADOTable1.FieldByName('data').Value:=Datetostr(Form4.DateTimePicker1.Date);
if DataModule2.ADOTable1.Modified
then DataModule2.ADOTable1.Post;
MessageBox(Handle, 'Запись добавлена!', 'Уведомление', MB_ICONINFORMATION);
close;
end;