Как организовать вход в готовый проект по логину и паролю?

var
   sUser: string = '';

// event OnShow
procedure frmHello_OnShow (Sender: string; Action: string);
begin
     frmLogin.edPassword.PasswordChar := '*';
     frmLogin.ShowModal; // show windows for login
end;


procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     // SQL query for check user and password
     s := VarToStr( SQLExecute('SELECT count(id) FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');') );

     // if SQL query found login and password
     if (s <> '0') and (s<>'') then
     begin
          sUser := frmLogin.edUser.Text; // remember username

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

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

end;


// window closing event for login
procedure frmLogin_OnClose (Sender: string; Action: string);
begin
     //if the user has not been defined, and the user closes the login window, then close the main form
     if sUser='' then frmChoice.Close;
end;




begin
  // Initial check whether there is a database administrator user
  // if not, create an administrator with username admin and password 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);');
         frmLogin.edUser.Text := 'admin';
         frmLogin.edPassword.Text := 'admin';
     end;

end.