Форма ввода профиля и главная форма

Все заработало, как только сделал форму пароля стартовой, другая проблема, при закрытии программы не закрывается стартовая форма, события по клику login.Close и OnClose почему то не работают, работает только спрятать форму login.Hide (остается процесс в системе)

Если форма с запросом логина и пароля является главной,  и затем после успешного ввода логина и пароля она скрывается (frmLogin.Hide), то приложение останется висеть в процессах, пока эта форма (frmLogin) не будет закрыта, т.к. приложение закрывается, только тогда, когда закрывается его главная форма.

Таким образом вам необходимо вручную закрыть форму frmLogin, сделать это можно в событии OnClose в форме, которая является основной для работы с вашей базой данных.

например:

procedure Form2_OnClose (Sender: string; Action: string);
begin
    frmLogin.Close;
end;

таким образом, при закрытии формы Form2, закроется и главная форма проекта frmLogin

здравствуйте помогите пожалуйста скрипт

procedure NEON_OnClose (Sender: string; Action: string);
begin
    Form1.Close;
end;
мне не помог Form1 остается скрытым что у меня тут не правильно ?

var
   sUser: string = '';
   Timer: TTimer;

                procedure NEON_OnClose (Sender: string; Action: string);
begin
    Form1.Close;
end;

// показать/скрыть пароль
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
     if Form1.CheckBox1.Checked then Form1.Edit2.PasswordChar := #0
     else Form1.Edit2.PasswordChar := '*';
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     // SQL запрос логина и пароля пользователя
     s := VarToStr( SQLExecute('SELECT count(id) FROM users WHERE (login = ''' + Form1.Edit1.Text + ''') AND (password = ''' + Form1.Edit2.Text + ''');') );

     // если логин и пароль найдены
     if (s <> '0') and (s<>'') then
     begin
          sUser := Form1.Edit1.Text; // запоминание имени пользователя

          // проверка прав администратора
          s := VarToStr( SQLExecute('SELECT administrator FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then NEON.Button1.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку

          // проверка прав администратора
          s := VarToStr( SQLExecute('SELECT read FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then NEON.Button7.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку

           // проверка прав администратора
          s := VarToStr( SQLExecute('SELECT remove FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then NEON.Button6.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку

          // проверка прав администратора
          s := VarToStr( SQLExecute('SELECT write FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then NEON.Button5.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку

          Form1.Hide; // закрытие формы
          NEON.Show;
          NEON.bSQLSearch.Click;

        end else MessageDlg('неправильный логин или пароль ', mtError, mbOk, 0); // сообщение, если пароль неверный
end;

begin
  // Первоначальная проверка, является ли пользователь администратором базы данных
  // если нет, то создается пользователь с логином и паролем администратора 'admin'
     if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
     begin
         SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
         Form1.Edit1.Text := 'admin';
         Form1.Edit2.Text := 'admin';
     end;

     Form1.Edit2.PasswordChar := '*';

end.

как вам сообщить пароль от архива ?

отправил ))