Процедура в мене така:

procedure TAddClassis_Fr.Add_SBtClick(Sender: TObject);
begin
if ToEdit_Ed.Text<>'' then
degin
  Classis_ADOTb.Insert;
  Classis_ADOTb.FieldByName('Classis').AsString:=ToEdit_Ed.Text;
  Classis_ADOTb.Post;
end
else
  ShowMessage('Ви не заповнили поле.');
end;
end;

В одному варіанті в мене виводилося повідомлення коли едіт був заповнений, а в другому коли пустий.
Але проблема в тому що в обох випадках дані в базу не заносилися.

Я думав використати цей код, щоби в підлеглій таблиці не створювалися пусті комірки пи випадковому натиснені на кнопку Add_SBt.

Без конструкції дані заносяться без проблем

  Classis_ADOTb.Insert;
  Classis_ADOTb.FieldByName('Classis').AsString:=ToEdit_Ed.Text;
  Classis_ADOTb.Post;

Хто підкаже де я зробив помилку буду вдячний.

мені одному здалось що це неправильно?

degin

Romanvolja
Помилка десь в іншому місці.

Дякую всім за допомогу.

Помилку знайшов. Насправді дані зберігалися в БД, але не відображалися в таблиці та гріді.
Вирішив проблему через активацію.

procedure TAddClassis_Fr.Add_SBtClick(Sender: TObject);
begin
  if (ToEdit_Ed.Text<>'') then
    begin
      with Classis_ADOTb do
        begin
          Insert;
          FieldByName('Classis').AsString:=ToEdit_Ed.Text;
          Post;
          Active:=False;
          Active:=True;
        end;
      NS_Or_Classis_ADOTb.Active:=False;
      NS_Or_Classis_ADOTb.Active:=True;
    end
  else
    begin
      ShowMessage('Ви не заповнили поле.');
    end;
  ToEdit_Ed.Clear;
end;

Тепер все працює як треба.

На рахунок begin ви праві, я його пропустив. В конструкції він повинен стояти після  else.

НУ ось, наприклад, використання конструкції if else при вводі данних логіну та паролю
01 procedure TForm1.Button1Click(Sender: TObject);
02 begin
03 if Edit1.Text = 'admin' then //Если логин верный, то...
04 begin
05 Label3.Caption:='Вы авторизованны!'; //Авторизовываем пользователя
06 end
07 else //Иначе
08 begin
09 Label3.Caption:='Логин не верный!'; //Выдаем ошибку
10 end;
11 end;