Por cierto, no se pq pones la query como active = true y luego la haces un open. Una de las dos cosas te sobra:
Código:
//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;