şifre değiştirme YARDIM

 
  void __fastcall TForm6::Button1Click(TObject *Sender) 
  { 
    if(Edit2->Text=="" || Edit3->Text=="") 
  { 
      ShowMessage("Lütfen yeni parolanızı giriniz.Parola boş olamaz."); 
      return; 
  } 
  else if(Edit2->Text!=Edit3->Text) 
  { 
      ShowMessage("Parola ve parola tekrarı aynı değil, lütfen düzeltiniz."); 
      return; 
  } 
   
  String sql="SELECT * FROM kullanici WHERE parola='"+Edit1->Text+"'WHERE k_adi='"+Edit4->Text+"'"; 
   
   
   
  MyQuery1->SQL->Clear(); 
  MyQuery1->SQL->Add(sql); 
  MyQuery1->Execute(); 
  if(MyQuery1->RecordCount<1) 
  { 
      ShowMessage("Mevcut kullanici adi veya parola yanlış."); 
      return; 
  } 
   
  sql="UPDATE kullanici SET parola='"+Edit2->Text+"' WHERE k_adi='"+Edit4->Text+"'"; 
   
  //ShowMessage(sql); 
  MyQuery1->SQL->Clear(); 
  MyQuery1->SQL->Add(sql); 
  MyQuery1->Execute(); 
  ShowMessage("Parolanız başarıyla değiştirilmiştir."); 
  }