Сообщение "Ошибка синтаксиса в инструкции INSERT INTO"

void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
   // Проверка заполнения полей ввода
   if((Edit3->Text==""), (Edit4->Text==""), (Edit5->Text==""), (Edit6->Text==""))
      ShowMessage("Заполните необходимые поля ввода!");
   // Проверка подтверждения пароля
   else if (Edit5->Text!=Edit6->Text)
     ShowMessage("Введенные вами пароли не совпадают");
   else if (Edit5->Text.Length() < 8)
     ShowMessage("Длина пароля должна содержать 8 знаков");
   else
   // Запускаем процесс регистрации в базе данных
   {
      ADOTable1->Open();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add("INSERT INTO Users (login, email, password) VALUES ('"+Edit4->Text+"',  '"+Edit3->Text+"', '"+Edit5->Text+"')");
      ADOQuery1->ExecSQL();
      ADOTable1->Close();
      ShowMessage("Вы были успешно зарегистрированы в системе");
   }
}

else
   // Запускаем процесс регистрации в базе данных
   {
      ADOQuery1->Close();
      ADOQuery1->SQL->Text = "INSERT INTO Users (login, email, password) VALUES (:p1, :p2, :p3)";
      ADOQuery1->Parameters->ParamByName("p1")->Value = Edit4->Text;
      ADOQuery1->Parameters->ParamByName("p2")->Value = Edit3->Text;
      ADOQuery1->Parameters->ParamByName("p1")->Value = Edit5->Text;
      ADOQuery1->ExecSQL();
      ShowMessage("Вы были успешно зарегистрированы в системе");
   }

ADOQuery1->SQL->Text = "INSERT INTO Users ([login], [email], [password]) VALUES (:p1, :p2, :p3)";