Meter el resultado de un quey en una variable.

[Investment]

Por cierto, no se pq pones la query como active = true y luego la haces un open. Una de las dos cosas te sobra:

  //Cerramos y desactivamos la consulta.
  Query_control_usuario.Close;

  //Pasamos los parametros a la consulta.
  Query_control_usuario.ParamByName('nu').AsString := Form2.Edit1.Text;

  //Activamos y Abrimos la consulta.
  Query_control_usuario.Open;

  //Guardamos el resultado de la consulta en una variable ya declarada arriba.
  resultado := query_control_usuario.FieldByName('TipoUsuario').AsString;

  if Query_control_usuario.EOF then
    ShowMessage('La consulta no ha devuelto nada')
  else
    ShowMessage('La consulta ha devuelto: ' + resultado  )  ;

  //Dependiendo del resultado que nos devuelva la consulta se haran distintas cosas.
  If resultado='Administrador' then
    gbadmin.Visible:=true
  else
    gbadmin.Visible:=false;
  end;