Пароль на программу

[misha_mag]

Всем привет, собственно такой вопрос:
Мне нужно вытащить пару логин\пароль из БД аксеса, при этом если пользователь ввёл всё правильно, то передать в глобальную переменную id той самой записи с логином и паролем. Разумеется, в БД пароль будет зашифрован

Обработчик на нажатие кнопки выложу...

procedure TLoginForm.Button1Click(Sender: TObject);
begin
if (Length(Edit1.Text) = 0) or (Length(Edit2.Text) = 0) then
    ShowMessage('Имя пользователя или пароль не могут быть пустыми!') else

  if MainForm.ADOTableLogin.Locate('login;pass', vararrayof([Edit1.text, edit2.text]),[]) then
     begin
         MainForm.Show;
         LoginForm.Hide;
     end
  else
      ShowMessage('Неверно введен пароль!');

Но данный способ почему-то не работает

Вот нашёл на другом форуме что-то похожее но в моём случае тоже не работает, может кто знает почему?

procedure TLoginForm.Button1Click(Sender: TObject);
var dir,login,pass:string;
a,i:integer;
dostup: boolean;
begin
    ADOUser.First;
    for i:=1 to ADOUser.RecordCount do
    begin
      login:=ADOUser.FieldByName('Login').asString;
      pass:=ADOUser.FieldByName('Pass').asString;
      if (login=Edit1.Text) and (pass=Edit2.Text) then
      begin
Application.CreateForm(TMainForm, MainForm);
MainForm.show;
LoginForm.Hide;
      end
      else
        ADOUser.Next;
    end;
    showmessage('Ошибка однако!');
  end;

[Stilet]

В каком смысле не работает? Выдает сообщение о неверно введенном пароле или падает на ошибку?

[misha_mag]

Всё, разобрался уже)) У меня не работало, потому что adoconnection был на главной форме, которая ещё не создана... я имею ввиду Application.CreateForm
Теперь осталось придумать, как занести в переменную id нужного мне юзера... Есть предложения?

Впринципе вот так вышел из ситуации:

procedure TLoginForm.Button1Click(Sender: TObject);
var dir,login,pass:string;
a,i:integer;
dostup: boolean;
begin

    ADOUser.First;
    for i:=1 to ADOUser.RecordCount do
    begin
      login:=ADOUser.FieldByName('Login').asString;
      pass:=ADOUser.FieldByName('Pass').asString;
      if (login=Edit1.Text) and (pass=Edit2.Text) then
      begin
     a:=ADOUser.Fields[0].Value;
Application.CreateForm(TMainForm, MainForm);
login_id:=a;//Создаем глобальную переменную в MainForm и туда заносим id пользователя который залогинился ;)
LoginForm.Hide;
MainFOrm.show;

      end
      else
        ADOUser.Next;
    end;
if (login <> Edit1.Text) and (pass <> Edit2.Text) then
   showmessage('Ошибка однако!');
  end;