Проверка заполнения полей в Delphi 7

procedure TForm2.Button1Click(Sender: TObject);
begin
ADOTable1.Insert;
ADOTable1['id_uchrezdeniya']:=Edit1.Text;
ADOTable1['naimen_polnoe']:=Edit2.Text;
ADOTable1['naim_sokr']:=Edit3.Text;
ADOTable1['kat_podchin_uchr']:=ComboBox1.Text;
ADOTable1['uroven_uchr']:=ComboBox4.Text;
ADOTable1['vedomstvenaya_prenadl']:=ComboBox5.Text;
ADOTable1['forma_sobstv']:=ComboBox6.Text;
ADOTable1['tip_uchr']:=ComboBox8.Text;
ADOTable1['uchastie_OMS']:=ComboBox9.Text;
ADOTable1['uchastie_DPO']:=ComboBox10.Text;
ADOTable1['prim_std_mp']:=ComboBox11.Text;
ADOTable1['INN']:=Edit5.Text;
ADOTable1['KPP']:=Edit6.Text;
ADOTable1['OGRN']:=Edit7.Text;
ADOTable1.Post;
if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (ComboBox1.Text <> '') and (ComboBox4.Text <> '') and (ComboBox5.Text <> '') and (ComboBox6.Text <> '') and (ComboBox8.Text <> '') and (ComboBox9.Text <> '') and (ComboBox10.Text <> '') and (ComboBox11.Text <> '') and (Edit5.Text <> '') and (Edit6.Text <> '') and (Edit7.Text <> '') then
 ShowMessage('Ne zapolneno odno iz poley');
begin
  Edit1.clear;
  Edit2.clear;
  Edit3.clear;
  Edit5.clear;
  Edit6.clear;
  Edit7.clear;
  end;
end;