Что он не изменяет, я знаю, просто чтоб было понятно, как вообще задаётся пароль
Вот сама процедура:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const pass='12345';
begin
if Password.Text = pass then
CanClose:=true
else Application.Terminate;
end;