Вывод значения из запроса авторизации

procedure TForm1.Button1Click(Sender: TObject);
  begin
  sqlquery1.SQL.Text:='SELECT count(*) FROM users WHERE (user=:s) and (pass=:p)';
  sqlquery1.params.parambyname('s').value:=Edit1.text;
  sqlquery1.params.parambyname('p').value:=Edit2.text;
  sqlquery1.Open;
  if sqlquery1.IsEmpty then ShowMessage('Не верное имя пользователя или пароль') else
  if sqlquery1.Fields[0].asInteger=1 then
  begin
    Form2.Show;
    Form1.Hide;
form2.label1.Caption:=sqlquery1.Fields[3].AsString;
 
  end else
  begin
    ShowMessage('не найден');
  end;
end;

if edit1.text='admin' then
                           form2.Button2.Visible:=true
                           else
                           button2.Visible:=false;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with  sqlquery1 do begin
    SQL.Text:='SELECT id, user, pass, category FROM users WHERE (user=:s) and (pass=:p)';
    params.parambyname('s').value:=Edit1.text;
    params.parambyname('p').value:=Edit2.text;
    Open;
    if IsEmpty then ShowMessage('Не верное имя пользователя или пароль') else
     begin
        Form1.Hide;
        Form2.Button2.Visible:=Fields[3].asString='admin'; 
        Form2.Label1.Caption:=Fields[1].AsString;
        Form2.Show;        
     end;
 end;
end;