[6666]

сделал пароль:

Код:

Procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
 
begin
if edit3.Text='123' then
begin
form2.SpeedButton4.Enabled:=true;
form2.SpeedButton5.Enabled:=true;
Form2.SpeedButton7.Enabled:=true;
Form2.SpeedButton8.Enabled:=true;
Form2.SpeedButton1.Enabled:=false;
 Form2.SpeedButton9.Enabled:=true;
   Form2.SpeedButton10.Enabled:=true;
 
   Form2.SpeedButton12.Enabled:=true;
   SpeedButton2.Visible:=true;
   SpeedButton1.Visible:=false;
end
else Label6.Caption:='Не верно указано имя пользователя или пароль';
exit;
 begin
 begin
if edit2.Text='admin' then
begin
polzovatel:=Edit2.Text;
//form1.StatusBar1.Panels.Items[2].Text:='Преподаватель:  '+edit2.Text+' ;
form2.SpeedButton4.Enabled:=true;
form2.SpeedButton5.Enabled:=true;
Form2.SpeedButton7.Enabled:=true;
Form2.SpeedButton8.Enabled:=true;
Form2.SpeedButton1.Enabled:=false;
 Form2.SpeedButton9.Enabled:=true;
 Form2.SpeedButton10.Enabled:=true;
 Form2.SpeedButton12.Enabled:=true;
 
 Form2.SpeedButton12.Enabled:=false;
 Edit2.Text:='';
 Button1.Enabled:=false;
end
else Label6.Caption:='Не верно указано имя пользователя или пароль';
exit;
  end;
 
  close;
 
end;

подскажите пожалуйста как для этой процедуры сделать смену пароля. может у кого примеры есть или советы. заранее спасибо