إنشاء رقم سري مع امكانية تغييره

[bakhcha]

السلام عليكم
مستوايا في البرمجة بالدلفي ما زال تحت مستوى الصفر اولت أن أعمل برنامج بسيط جدا بقاعدة بيانات أبسوليت ولكن اعترضتني مشكلة عويصة بالنسبة لي علما أنها شيء تافه بالنسبة للمترفين لكن لا تلوموني الشيء البسيط عندكم يعتبر جبل أمام المبتدأ في خوض غمار البرمجة بأي لغة من لغات البرمجة
عندي فورم 
ادرجت edit1
2- Btn
DBGRID1+ ABSDatabase1+ ABSTable1+ Datasource1
بعد اجراء طريقة الاتصال بالقاعدة وتحديدا بجدول اليوزر الذي يجتوي على حقل المخزن للرقم السري والموجود في DBEdit1
كتبت الكود بطريقة ما حيث يقوم بمقارنة القيمة الموجودة في DBEdit1مع الكلمة المدخلة في EDIT1
الكود كما يلي:
procedure TForm8.Button1Click(Sender: TObject);
begin

if (edit1.Text =  dbedit1.Text)   then
  begin
  bol:=true;
 ABStable1.close;
 close;

 form1.Show;

  end;

if (edit1.Text <> dbedit1.Text)   then
   begin
   bol:=false;
   edit1.Text:='';
   messagedlg( 'تأكــد من كلمة الســر   ' ,mtwarning,[mbok],0);
   edit1.SetFocus;
   end;
end;

هذا كود زر الاغلاق:
procedure TForm8.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
أرجو من السادة الاساتذة الكرام وذوي الخبرة مساعدتي على تصحيح الكود علما أنني جربته بشتى الطرق ويعمل بطريقة عادية جدا لكن عند انهاء المقارنة يختفي فورم الباسوورد ولا يظهر فورم 1 واحد لواجهة البرنامج وفي حال توصلت لتصحيح الاشكال يلزمني كتابة كود تغيير الرقم السري المخزن في جدول الباسوورد بعد القيام بمحاولاتي أتمنى أن تنجح