if (Edit1.Text = '') or (Edit2.Text = '') then begin ShowMessage('Не введено значение в поле'); Exit; end; DataModule2.ADOTable1.Insert; ...