Cambio de contraseña login

[MacStreet]

Hola, estoy desarrollando una pequeña aplicación en Delphi y me gustaría que,se pueda cambiar de contraseña, busque en google hasta intente crear uno pero la verdad que me es imposible,
espero me puedan ayudar, muchas gracias!
PD: Adjunto el codigo que uso para hacer login, es ultra basico y espero que me pudan dar una mano.

procedure TForm1.Button1Click(Sender: TObject);
begin


if (Edit1.Text = 'USUARIO')and(Edit2.Text ='123') then

begin
showmessage('Bienvenido!!');
end

[Casimiro Notevi]

Si quieres cambiar la contraseña hazlo en esta línea:
if (Edit1.Text = 'USUARIO')and(Edit2.Text ='456') then