Доработка авторизации

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    SQL.text := 'SELECT password FROM Таблица1 WHERE login=' + QuotedStr(Edit1.text);
    Open;
    if Edit1.text = '' then
      Showmessage('Введите данные!')
    else
      while not eof do
        if Fields[0].Value = Edit2.text then
        begin
          Form1.Hide;
          Form2.Show;
          exit;
        end;
    Showmessage('Введён не верный пароль!');
    Active := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    SQL.text := 'SELECT password FROM Таблица1 WHERE login=' + QuotedStr(Edit1.text);
    Open;
    if Edit1.text = '' then
      Showmessage('Введите данные!')
    else
      while not eof do
        if Fields[0].Value = Edit2.text then
        begin
          Form1.Hide;
          Form3.Show;
          exit;
        end;
    Showmessage('Введён не верный пароль!');
    Active := False;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.REGTable.Insert;
form2.Show;
 
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
   REGTable.insert;
   form1.show;
   form2.Close;
 
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
form1.show;
end;