(DBLookupComboBox1.Text ='') or (DBLookupComboBox2.Text ='') or (Edit3.Text ='') or (Edit4.Text ='') or (Edit5.Text ='') then ShowMessage ( 'Заповніть всі поля!') else.ADOQuery1.SQL.Add ('INSERT INTO Угоди (Код_кліента, Код_услугі, Сума, Комісійні, Опис) VALUES
form4.Close ();;;